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magazine with disk 


Tutorials on START Disk brings 
the expertise of top ST program¬ 
mers right into your computer. 

\| Manage the power of your 
ST and make your computing 
more enjoyable with utilities 
on STart disks. 

Stimulate your imagination and 
your reflexes with games on 
START Disk! How-to tutorials 
show you how to write your 
own pulse-pounding games. 


YES! Sign me up for 12 issues of START 
magazine plus DISK for the low price of 
just $79-95. 

□ Bill me 

□ I’m enclosing payment 

□ Check enclosed □ Visa □ MasterCard 



For Faster Service Call 

Toll-Free 1-800-234-7001 

Visa or MasterCard Only 





























MORE THAN JUST 
A MAGAZINE! 

YES! Sign me up for 12 issues of 
START magazine plus DISK for the low 
price of just $79.95. 

□ Bill me 

□ I’m enclosing payment 
□ Check enclosed □ Visa □ MasterCard 


$ 39.95 

Per 

Installment 


Credit Card # 


Exp. Date 


Signature 


Name 


Street 


City 


Please allow 4-6 weeks for delivery of first issue. 
c»atp 7in EK9T Canada & Mexico residents add $18.00 per year, 

oidie t- p Foreign subscribers (not including Canada} must 

send full payment. Payment in U.S. funds. Cali¬ 
fornia residents add 6te% sales tax. 
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I/O BOARD 


MORE MAKEBOOT DOS 

I noticed that OS/A +, a discontinued DOS 
once available from OSS, was required to 
use the program MAKEBOOT.EXE in Cus¬ 
tomizing the Atari Operating System De¬ 
vice Handlers: Part II from Antic, May, 
1989. The section labeled “OS/A + Ver¬ 
sion” only changes MEMLO and prints a 
message, which is certainly not a DOS- 
specific thing. 

The problem is that the program does 
not relocate to sit on the old MEMLO, but 
starts instead at $2100. When the DOS 2 
DUP.SYS is loaded, MEMLO is ignored, and 
in this case DUP.SYS would overwrite the 
program. OS/A + is completely memory- 
resident, loading no utility package from 
disk. So this is not a problem. 

Also, the program does not contain a 
RUN AD or INITAD segment, so, if loaded 
from DOS 2, it would not run. OS/A will 
load a file with a .COM extender and be¬ 
gin execution at the beginning of the first 
segment. Once renamed, this program will 
work properly. The article did not men¬ 
tion that the program must be renamed 
“MAKEBOOT.COM.” These are the only 
problems I found, and I realized that there 
was no reason the program should not 
work properly with DOS XL (another dis¬ 
continued DOS once available from OSS) 
as well as SpartaDOS (currently available 
from ICD, Inc) since these share the neces¬ 
sary traits. 

I tested the program with SpartaDOS 
3.2 and SpartaDOS X and had no prob¬ 
lems. It should be noted that with Spar¬ 
taDOS X the handler is not available from 
the command processor, but is available 
from an application. Also, users should 
check the value of MEMLO before load¬ 
ing the program to insure that it is below 
$2100. Adding RAMdisk handlers and/or 
R: handlers could boost MEMLO above this 
value. 

Assuming these are the only conflicts 
with Atari DOS 2, it should be possible 
to modify the program to work with DOS 
2. It may already work with DOS XE with 
an appropriate run segment added. 

Craig Thom 

Rockford, IL 


Mr. Thom works for ICD, but wants it un¬ 
derstood that he is writing here on a 
strictly personal basis, not as a represen¬ 
tative of ICD. Still, he certainly knows his 
assemblers and DOS .—ANTIC ED 

CRIBBAGE HELP! 


We’ve been hearing from readers about our 
game Cribbage Atari , which ran in the 
May, 1989 issue. As it turns out, the game 
does not run properly on an 800, nor ap¬ 
parently on a 1200XL. Unfortunately, the 
Technical Editor who worked on the pro¬ 
gram didn’t know how to play cribbage, 
so he never played long enough on his 800 
to realize there was a problem. The testers 
in our office used a 130XE and an 800XL 
and had no problems whatsoever. If any¬ 
one has been able to fix the problem, 
please let us know how you did it!— 
ANTIC ED 

ERROR CODE CONFUSION 

Whenever an error code comes up I have 
to stop, look up the code number, and try 
to figure out what it means. Maybe you 
could run some articles on error codes, 
what they mean and how to handle them. 

Rodney Gore 

Layton, Utah 

For BASIC programming Electric Charlie 
by Patrick Bass (Antic, February 1987) 
gives detailed error messages in pop-up 
windows, so at least you don't have to 
keep looking up the numbers every time. 
For a guide to error trapping in your own 
programs, see Heidi Brumbaugh's Error 
Trapping in Atari BASIC in the February 
1989 Antic. 

Figuring out what a particular error 
means for the program you're working 
on is NEVER easy. One error number can 
apply to several different situations, so 
there's no way to get a definative analy¬ 
sis of an error. Also, error messages are 
often actually triggered by other problems 
occurring elsewhere in the program. — 
ANTIC ED 


BAD KITTY 


While playing Escape From Dispozon 
(March and April, 1989) I found an error. 
When I got to the island with the box and 
kitten, I couldn’t get the kitten. Instead, 
I got the death routine you get when the 
crabs get you. How do I fix this? 

Ethan Frolich 
West Palm Beach, 
Florida 

There is a problem, but you don't have 
to fix it to play the game successfully. 
Touching the kitten is supposed to be 
fatal—you 're just getting the wrong death 
routine. Try luring the kitten with 
sardines, instead .—ANTIC ED 

FARMERS UNITE 


I agree totally with Lee Jones’ letter in the 
July Antic, calling for an Atari Farmers and 
Gardeners Users Group. As a farmer, I am 
apalled by the lack of agricultural software 
for Atari 8-bit computers. That’s one rea¬ 
son I wrote my Customer List Manager, 
a simple database designed to keep yearly 
histories of orders. By changing the fields, 
this database can be used to track the per¬ 
formance of crops, weed and insect prob¬ 
lems, and pesticide applications. 

Thomas Andrews 

Manlius, NY 


Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon¬ 
dence as time permits, our highest pri¬ 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107 : 
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NEW PRODUCTS 


HAPPY'S U.S. HISTORY hi 

(educational software) 

Bensley Consulting 
P.O. Box 301 
Westfield, IL 62474 
$19.93, 48K disk 

Test your knowledge of State capitals, 
State nicknames and the order of the 
Presidents of the United States with 
Happy’s Programs: U.S. Presidents. 
Within each category the multiple- 
choice questions are presented in ran¬ 
dom order. The question number and 
percent correct are displayed on 
screen. For that patriotic touch, correct 
answers are rewarded with a brief ani¬ 
mation of a waving flag. 


SUPERFROGS, 

FUNSPELLER 
TANK MATH 
TRACK STACK 2.0 

(games, education, utilities) 

Ultrabasic, Inc. 

10 East 10th Street 
Bloomsbuig, PA 17815 
(717) 784-4545 
$10 each, 48K disk 
Ultrabasic announces four new soft¬ 
ware packages for Atari 8-bit com¬ 
puters. SUPERFROGS is a seven-game 
arcade with over 10,000 variations. 
TRACK STACK 2.0 is a utility 
designed to make it easier do work 
with machine language programs. You 
can transfer up to 15 unprotected M/L 
programs to a TRACK STACK disk, af¬ 
ter which you’ll be able to load pro¬ 
grams with a touch of a key. (Not 
copy-protected.) 

For educational fun, SUPERFROGS 
FUNSPELLER contains six spelling 
games for one or two players. Create 
and use up to 40 word sets of your 
own (with 20 words each) or use the 
15 word sets included—each with 50 
words. With TANK MATH (32K disk) 
you can Add, Subtract, Multiply, Di¬ 
vide, do Times and Division Tables, or 
practice Roman Numerals with the aid 
of a TUTOR. If your answer is incor¬ 
rect, the TUTOR works out the prob¬ 
lem for you, step by step. 


MAILING LIST PLUS 

(applications software) 

Twenty-Fifth Century 
P.O. Box 8042 
Long Island, NY 11802 
(516) 932-5330 

$14.95, 32K disk, printer required 
Why bother with complicated data¬ 
bases if all you need is a simple mail¬ 
ing list program? Mailing List Plus 
makes it easy to maintain your per¬ 
sonal, club or small business mailing 
lists. Names and addresses are typed 
on the screen as you want them to ap¬ 
pear on the label. 

You can categorize each name and 
address with any labels you choose, 
such as FRIENDS, RELATIVES and 
CUSTOMERS. Mailing List Plus also lets 
you search your list by first or last 
name, city or zip code. You can print 
to standard labels, one or two columns 
across, or enter new spacing for cus¬ 
tom labels of almost any size. 


MANUS 

(music/applications software) 

John Kelleher 
4400 New Jersey Street 
San Diego, CA 92116 
$19 95, 48K disk, printer 
MANUS is a music manuscript editor 
that makes it possible to hold in mem¬ 
ory, view and edit two 80-column by 
96-line pages of music manuscript. 

The sophisticated cut-and-paste feature 
makes it possible to move up to 80 
columns by 48 lines at once—with an 
Undo option. With its ability to pro¬ 
duce high-quality music manuscripts, 
MANUS is ideal for musicians, music 
students and lovers on a budget. A 


New Products notices are compiled by 
the Antic staff from information 
provided by the products' manufac¬ 
turers. Antic welcomes such submis¬ 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 
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How to build a high-paying career, 
even a business of your own, 
in computer programming. 



CARL BARONE, 

NRI PROGRAMMER/ANALYST 

Start with training that gives you 
hands-on programming experience 
-at home and at your own pace. 
Training that begins with BASIC, 
then continues with Pascal, C, and 
COBOL—today's hottest computer 
languages. Training that even 
includes a powerful IBM-compatible 
computer, modem, and program¬ 
ming software you keep. 

Start with real-world training. 
The kind of training only NRI 
provides. 


baud internal modem, 512K RAM, 
disk drive, monitor, and invaluable 
programming software—BASIC, Pas¬ 
cal, C, and COBOL—all yours to keep. 

You get the experience and the 
know-how, the computer and the 
software to get to the heart of every 
programming problem, design imagi¬ 
native solutions, then use your choice 
of four key computer languages to 
build original, working programs. 

No matter what your background, 

NRI gives you everything you 
need to succeed in programming, 
today's top-growth 
computer career field. 

You need no previous experience to 
build a successful programming career 
with NRI training. Indeed, your NRI 
lessons start by walking you step by 
step through the fundamentals, giving 
you an expert understanding of the 
programming design techniques used 
every day by successful micro and 
mainframe programmers. And then 
the fun really begins. 


C, and COBOL. Then, rounding out 
your training, you use your modem to 
“talk” to your instructor, meet other 
NRI students, even download pro¬ 
grams through NRI’s exclusive pro¬ 
grammers network, PRONET. 

Your career in computer 
programming begins with 
your FREE catalog from NRI. 

For all the details about NRI’s at-home 
training in Computer Programming, 
send the coupon today. Soon you’ll 
receive NRI’s fascinating, information- 
packed, full-color catalog. 

Open it up and you’ll find vivid 
descriptions of every aspect of your 
NRI training. You’ll see the computer 
system included in your course up 
close in a special, poster-sized foldout 
section. And, best of all, you’ll find out 
how your NRI training will make it 
easy for you to build that high-paying 
career—even a business of your own—in 
computer programming. 



With your personal NRI instructor 
on call and ready to help, you use your 
computer and software to actually 

design, code, run, 


Now with NRI’s new at-home training 
in Computer Programming, you can be 
one of today’s highly paid, creative 
team of computer wizards who give 
computers the power to carry out an 
astonishing range of business, profes¬ 
sional, and personal applications. Now, 
with NRI, you can be a computer 
programmer, ready to build a high- 
paying career—even a business of 
your own—making computers do 
anything you want them to do. 

The only programming course 
that includes a powerful 
computer system and 
software you keep. 

Unlike any other school, NRI gives 
you hands-on programming ex¬ 
perience with a powerful IBM- 
compatible Packard Bell com¬ 
puter system, including 2400 


Only NRI gives you an IBM-compatible computer with modem, 
512K RAM, disk drive, monitor, and software—BASIC, Pascal, C, 
and COBOL—all yours to keep! 


You master today’s hottest computer languages, gaining the skills you need to 
build programs for a wide variety of real-world applications. 



Send for your NRI catalog today. 
It's yours, free. 

If the coupon is missing, write to us at 
the NRI School of Computer Program¬ 
ming, McGraw-Hill Continuing Educa¬ 
tion Center, 4401 Connecticut Avenue, 
NW, Washington, DC 20008. 

IBM is a Registered Trademark of the IBM Corporation 


School of Computer Programming 

McGraw-Hill Continuing Education Center m r m 

4401 Connecticut Avenue, NW 


Washington, DC 20008 


YES! Please rush me my FREE catalog describing NRl’s 
at-home training in Computer Programming. 


CITY/STATE/ZIP 


Accredited Member National Home Study Council 






























PRODUCT REVIEWS 


YEMACY B/4 

Electronical Software 
P.O. Box 1106 
Taylor, MI 48180. 

$29.95 

Review By Stephen Fishbein 

Mention of YEMACY B/4 in the 
February 1989 Antic review of the 
Star NX-1000 Rainbow printer 
prompted me to order a copy of this 
color printing utility from Electroni¬ 
cal Software. With the latest improve¬ 
ments in this handy program, as well 
as availability of color printers at 
much lower prices than ever before, 
YEMACY B/4 has become an essen¬ 
tial program for color printing. 

The original YEMACY program was 
released in 1986. It permitted four- 
color printing on ordinary printers by 
changing ribbons and re-positioning 
the paper. The method provided ex¬ 
cellent printouts as long as the user 
was careful in lining up the paper for 
each additional printer pass. 

YEMACY B/4 was later released for 
use with the Epson JX-80 and com¬ 
patible color printers such as the Rain¬ 
bow 1000. That version provided an 
excellent printout as well as several 
utilities. 

However, limited color printer sales 
resulted in little interest in YEMACY 
B/4 and Electronical Software had ac¬ 
tually closed down. Then the Antic 
review of the NX-1000 Rainbow 
created a new interest in color printer 
dumps and encouraged programmer 
Michael Clayton to add major im¬ 
provements which were recently 
completed. 

Clayton concluded that existing 
four-color ribbons failed to print true 
colors. Whether it was lack of ink on 
the ribbons or the limited drying time 
allowed before additional colors were 
added, Clayton’s solution was to al¬ 


low up to nine additional print passes 
per color. In most cases two or three 
passes will provide very satisfactory 
coloring. The resulting printouts fea¬ 
ture deep, rich colors, instead of the 
pale, washed-out look of single-pass 
prints. 

The most recent revision of YE¬ 
MACY B/4 also includes a “poster” 
program. Color pictures may now be 
enlarged two or three times and 
printed out on as many as nine sheets. 

Several utilities have also been ad¬ 
ded since the original YEMACY pro¬ 
gram was released three years ago. A 
text editor makes it possible to add 
text to graphics, using any of the nine- 
sector Atari fonts. You can design and 
print borders around your YEMACY 
prints, color data may be changed and 
the print palette may be customized. 
Most important, a utility is included 
to convert graphics to the widely used 
Micro-Painter format. The program 
and files now come on three disks, in¬ 
cluding the original YEMACY pro¬ 
gram. 


RAMdrive + XE-GM2, 
RAM-Aid 

(For Atari XEGS) 

Innovative Concepts 
31172 Shawn Drive 
Warren, MI 48093 
(313) 293-0730 
Review by Matthew Ratcliff 
RAMdrive + XE-GM2 ($34.95) is 
the sequel to the XE-GM1, reviewed 
in the August 1988 Antic. The XE- 
GM2 boosts the Atari XE Game Sys¬ 
tem’s 64K memory to a full 192K, 
enough bytes to copy a single-sided 
double density disk (SS/DD) in a sin¬ 
gle pass. This extra memory is ideal 
for user group library managers who 
need to make a lot of disk copies at 
a meeting in a short period of time. 


This extra RAM is automatically 
recognized by Paperclip II and the 
newer versions of SynCalc and 
SynFile+. 

This memory upgrade kit comes 
with two 41464 dynamic RAM chips 
(64K by 4 bits wide), a custom in¬ 
tegrated circuit, switch, resistor, and 
hook-up wire. The documentation as¬ 
sumes that you have already installed 
the XE-GM1. If not, you should order 
both kits at the same time to upgrade 
the XEGS to a full 192K in one hard¬ 
ware hacking session. 

Installing the XE-GM2 upgrade is a 
straightforward process requiring 17 
steps. The new RAM chips must be 
soldered piggy-back on the XE-GM1 
chips, which are on top of the origi¬ 
nal pair. This stack fits snugly in the 
case when the XEGS is reassembled. 
A 256K upgrade probably would not 
fit. 

If you have the XE-GM1 upgrade al¬ 
ready in place, adding the XE-GM2 is 
very simple. Only one wire must be 
removed from the first upgrade to 
make room. I had no problems with 
the installation, following the step-by- 
step instructions to the letter. With the 
proper tools as described in the in¬ 
structions, this upgrade should take 
about an hour to complete. 

The “select line” that enables this 
additional 64 K of RAM is used in the 
XEGS to control Missile Command. 
An optional switch may be wired into 
the project to allow use of the game. 
In this mode your XEGS has only 
128K of RAM available. But if you are 
playing Missile Command the extra 
RAM is idle anyway. I installed the 
switch with no complications. 

The upgrade is accompanied by a 
very nice RAMdisk and memory test 
utility disk. A brief overview of the 
files accompanies the instructions. 
RAMdisk handlers for a disk designa¬ 
tion of D2: through D7: are included, 
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as well as Atari’s D8: handler for DOS 
2.5. 

Documentation files, suitably for¬ 
matted for copying to the printer, are 
included to help you get the most out 
of your 192K of RAM with Spar- 
taDOS, MYDOS, and AtariWriter Plus. 
A sector copy utility called 
MyCopyR!, version 2.1, rounds out 
the utility package. This program can 
duplicate single, enhanced, or double¬ 
density disks in a single pass on a 
192K equipped XEGS. 

RAM-AID 

One minor problem occurs when 
all that RAM is added to an XEGS. 
When you turn the computer off and 
then on again quickly, the XEGS may 
fail to reboot. The extra RAM tends 
to retain its memory, preventing the 
XEGS from cold starting as expected. 

To get around this problem, Spar- 
taDOS users may simply issue the 
COLD command. Unfortunately, this 
doesn’t work if the computer locks up 
or if you are using certain applications 
software. When you must wait 10 to 
20 seconds between turning the com¬ 
puter off and on again to get a relia¬ 
ble reboot on the XEGS, these RAM 
upgrades can get a bit frustrating. 

Innovative Concepts has come to 
the rescue with their RAM-Aid 
($19.95). This device has been avail¬ 
able for the 800XL and 130XE com¬ 
puters for a while. The instructions 
have been expanded to cover instal¬ 
lation in the XEGS. The drawings for 
the XE-GM2 upgrade also demon¬ 
strate Ram-Aid connections. 

This project will add only a few 
minutes to your RAM upgrade time. 
There are a few wires, a very small cir¬ 
cuit, and a red pushbutton to hook up. 
A 1/4 inch hole must be drilled in the 
side of the XEGS, above the joystick 
ports, for the RAM-Aid reset button. 

I had no problems getting it installed, 


following the concise 12-step in¬ 
structions. 

Operation is quite simple. While 
pressing the RAM-Aid button, you 
press and release the [RESET] console 
key. Then release the RAM-Aid button 
to get a picture-perfect cold start, ev¬ 
ery time. 

I did find that, when in the “128K 
mode”, RAM-Aid had a minor prob¬ 
lem. Mark Elliott of Innovative Con¬ 
cepts explained that there was a con¬ 
flict with the operating system 
software that handles the [RESET] 
key. Missile Command, and the self 
test software. I did find that power cy¬ 
cling right after the unsuccessful 
restart with Ram-Aid would generally 
result in a proper cold start. Normally 
the XE-GM2 switch will be in the 
192K mode, where the Ram-Aid func¬ 
tions properly. 

Ram-Aid and the SpartaDOS X car¬ 
tridge do not cooperate well. When 
the Ram-Aid reset is initiated, it seems 
that the SpartaDOS X cartridge be¬ 
comes completely disabled, and the 
disk-based DOS will boot. 

SpartaDOS X is a very sophisticated 
“smart” bank-switching cartridge, but 
seems to become disabled by certain 
software when [RESET] is pressed. I 
have had this problem with quite a 
few programs that do not exit grace¬ 
fully to DOS. This seems to be as¬ 
sociated with SpartaDOS X and not 
Ram-Aid. If you are a SpartaDOS X 
user, you may find using the [RESET] 
key and the SpartaDOS X “COLD” 
command to be more reliable. 

The XE-GM1, XE-GM2, and RAM- 
Aid upgrades have given my XE Game 
System more power than an Atari 
130XE. The instructions are well- 
written, and the memory test and 
RAMdisk utilities put that new mem¬ 
ory to work right away. But remem¬ 
ber, you are on your own when 
“hacking hardware”. Open the XEGS 


and start soldering, and your six- 
month Atari warranty is null and void. 
But if you are up to the challenge, In¬ 
novative Concepts has the products 
to pump up the power of your Atari 
XEGS. 


P.O.S. NET SYSTEM 

Xenia Research 

P.O. Box 4675 

Federal Way, WA 98003 

CompuServe ID: 71310,605 

$189, 128K disk 

Review by Matthew Ratcliff 

P.O.S. Net stands for Point of Sale Net¬ 
work, a computer-based sales system 
designed to help run a small business 
by combining elements of a cash reg¬ 
ister with inventory and accounting. 
The complete P.O.S. Net package 
($189) includes two software prod¬ 
ucts and a bar code reader for data en¬ 
try. However, the elements of the 
package are available in various com¬ 
binations from manufacturer Scot 
McGowan’s Xenia Research. 

In its simplest $69 form, P.O.S. can 
be used as a cash register. One of the 
pins on an Atari joystick port can be 
used with the software to control a 
cash drawer that’s also available from 
Xenia Research. 

We were not able to fully set up a 
business to test run the software in 
depth, but the demonstration pro¬ 
gram that came with our review copy 
was quite impressive. The documen¬ 
tation is a little difficult to follow, 
presented in a set of five small book¬ 
lets. A single volume with table of 
contents and index would have been 
preferable. 

The software includes a pre¬ 
configured database with fields for a 
four-digit item number, product 
description, quantity, and cost per 
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item. Sales tax may be specified by the 
user, after which it is calculated auto¬ 
matically for all sales. Some items may 
be designated as tax-free, such as 
newspapers or medicine. Tax laws 
vary from state to state, and the abil¬ 
ity to control this automatically from 
P.O.S. Net is a very useful feature. 

If you do not recall an item’s prod¬ 
uct number, P.O.S. Net will search its 
database for the name you specify. Af¬ 
ter the sale, quantity is automatically 
updated. 

With the bar code handler/reader 
you can print your own descriptive 
labels for your products along with 
a bar code and product number. Then 
you just run the bar code reader 
across the label to enter the sale in an 
instant. I found that the bar code 
reader worked quite well, even on bar 
codes made with a faded printer 
ribbon. 

An Atari CX-85 keypad comes with 
the package. It serves to enhance the 
speed of data entry, and also as copy 
protection for the software. You can 
back up the program disks, but P.O.S. 
Net will not run unless the keypad is 
plugged into the machine. 

The customer’s name, address, and 
phone may also be entered as part of 
the sale. The customer information is 
not part of the database, however. 

A report generator is available from 
the management menu. Here all out- 
of-stock or low-stock items may be 
listed or printed, resulting in a com¬ 
plete order summary. The report 
generator may also be used to print 
a catalog of your product line, by item 
number or alphabetized item names. 

The reports may be used to track 
the sales rate of a particular item or 
even the sales performance of an em¬ 
ployee, since an employee number 
may be associated with each sale if 
desired. These reports are protected 
by a security code access, so the boss 


can protect sensitive data. 

P.O.S. Net supports up to seven ad¬ 
ditional terminals which are con¬ 
nected to the host computer through 
the Micronet adapter from Supra (not 
included with P.O.S. Net). This box al¬ 
lows multiple Atari computers to 
share the same set of peripherals au¬ 
tomatically (no manual switching re¬ 
quired). 

XR-100 SOFTWARE 

The XR-100 software enables you 
to develop your own applications 
with the bar code reader. Extensive 
BASIC program examples are 
provided in the manual. 

The XR-100 software loads a spe¬ 
cial handler into the K: device driver 
of your computer. It constantly mo¬ 
nitors the bar code reader in joystick 
port 1. When the reader is passed over 
a “modified code 39” bar code, the 
software deciphers the black stripes 
into their proper values. 

This data is then presented to the 
computer as if it were typed from the 
keyboard. This allows you to use the 
bar code for data entry at any place 
a program expects keyboard input 
from the K: device. The codes can be 
from one to four digits (or characters) 
long. 

However, this device cannot read 
UPC (universal price code) symbols 
like those you find on all your grocer¬ 
ies. The UPC code format is far more 
complicated to read than the “modi¬ 
fied code 39”. The bar code reader 
has a simple LED for data detection, 
while grocery store scanners must use 
lasers for reading. 

OTHER USES 

What good is the XR-100 software 
and bar code reader? It can be used 
to help organize just about any col¬ 
lection. You could write a program to 
maintain a database of a book or rec¬ 


ord collection, for example. Xenia Re¬ 
search provides a Contest Bar Code 
program with the XR-100 package. 
Bar codes may be printed as “tickets” 
for a contest entry, for your user 
group’s monthly door prize, for exam¬ 
ple. The contestants have their bar 
codes read on the way out of the 
meeting, and the winner will be de¬ 
tected automatically. 

The bar code reader that came with 
P.O.S. Net is made by Radio Shack. 
The part number is 26-1183. It was 
made for the Tandy Model 102 lap¬ 
top computer. Its connector is a DB9 
joystick type, compatible with the 
Atari 8-bit. If you purchase a bar code 
reader from Xenia, it comes precon¬ 
figured for the Atari. 

However, you may wish to pur¬ 
chase your own bar code reader from 
Radio Shack. Some wires must be 
moved, but the connector is easily 
disassembled so the black wire can be 
moved to ground, pin 8. The red wire 
goes to +5 volts, pin 7. The white 
wire goes to the trigger input, pin 6. 

P.O.S. Net requires a lot of Atari 
power to run. It seems well-suited to 
a small business operation. The user 
interface is very well done, for all 
components of the software. The 
documentation is rather brief, and it 
does seem to concentrate more on the 
technical aspects than the basics of 
operation. If this specific application 
is not for you, then the XR-100 pack¬ 
age will provide the tools to create 
your own custom bar code appli¬ 
cation. 

SYSTEM REQUIREMENTS: 

128K or larger XL/XE computer 
(64K XL/XE computer may be used 
as terminal 2-8) 

Supra Micronet, if more than one 
terminal is desired 

Double density disk drive (XF551 
or doubled density 1050) 
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Epson-compatible printer 
Optional 1020 printer 

XR-100 & BAR CODE RE¬ 

QUIREMENTS: 

48K Atari computer 
Atari 810, 1050, or XF551 disk 
drive 

Epson-compatible printer 
PRICES: 

RO.S. Net software $69 
XR-100 software & manuals $69 
RO.S. Net, bar code handler $99 
P.O.S. Net, bar code handler, XR-100 
software & manuals $125 

XR-100 software & manuals, bar¬ 
code reader $179 

P.O.S. Net, barcode handler/reader, 
XR-100 software & manuals $189 

THE CONVERTER 

No Frills Software 
800 East 23rd Street 
Kearney, NE 68847 
(308) 234-6250. 

$21.95, 48K disk 
Reviewed by Chester Cox 

Atarians have so many choices when 
it comes to printing utilities—and 
we’re still not satisfied. We want to use 
Print Shop icons in Print Power or 
Newsroom. News Station lets us use 
KoalaPad or Print Shop pictures, but 
we want to include Print Power or 
Newsroom pictures also. Newsroom 
Converter in the December 1988 
Antic lets us put Graphics 8 or Print 
Shop pictures in Newsroom, but it still 
doesn’t go far enough. 

The folks at No Frills Software evi¬ 
dently felt the same. The Converter 
by Chris Wareham connects News¬ 
room with Print Shop with Print 
Power with AwardWare. In so doing, 
it also provides utilities which the 


original programs lack. 

Primarily, the Converter will read 
pictures (Let’s call them all pictures, 
and dispense with “icons,” “clip-art,” 
or what have you.) from Print Shop, 
Print Power, or AwardWare, and saves 
it in either Newsroom photo, Award- 
Ware graphic, or AwardWare seal 
format. 

It will permit you to format a disk 
in Newsroom format if you have a 
1050 or compatible drive. It’ll let you 
view the directory of any of the 
above-mentioned formats, and let you 
view the pictures on the disks. It will 
even let you use more than one 
drive—an obvious requirement 
which too many programs omit. 

For Print Power users, the Con¬ 
vener opens up a large range of pos¬ 
sibilities. The Converter will convert 
AwardWare graphics or seals (those 
little pictures) quickly, as well as con¬ 
vert Print Shop icons, to Print Power. 
Even better, the Converter’s editing 
features permit us to finally create our 
own Print Power pictures, or to edit 
existing ones. Print Shop owners 
might find the editing features 
useful—it’s more powerful than Print 
Shop’s own drawing feature. 

Fortunately, the Converter is ex¬ 
tremely easy to use. I say “for¬ 
tunately” because the documentation 
is extremely difficult to read. When 
they call themselves “No Frills,” they 
aren’t joking. The documentation is 
faded photocopying. No Frills offers 
extremely low prices (their disks start 
at $2) and large royalty percentages 
to their authors—one tradeoff is in¬ 
expensive manuals. 

No Frills also offers many, many 
disks of Print Shop graphics, fonts, 
and borders. My newsletters, notices, 
and signs have become locally famous 
around the Denver area. This is espe¬ 
cially remarkable when I reveal that 
my ability to draw a straight line is nil. 


Does the Converter do everything? 
Not quite. I still want to convert some 
Newsroom pictures to Print Power or 
Print Shop, and would like to convert 
Print Power to Print Shop icons eas¬ 
ily. The freedom this would allow me 
when using News Station (which ac¬ 
cepts Koala pictures and Print Shop 
icons) would be thrilling. No Frills an¬ 
ticipates a “Converter Companion” in 
February which will enable exactly 
these options, so it’s merely a matter 
of waiting. 

With the Converter, many of my 
complaints about Newsroom fall by 
the wayside. You now can produce 
drawings far superior to any of 
Springboard’s Clip Art disks. And the 
one failure of Print Power is 
overcome—we can draw Print Power 
or AwardWare pictures quickly and 
simply, or use a Print Shop drawing 
program then convert. 

Any program which did any one of 
the above deeds would be considered 
a good buy at $20. This is a bargain— 
at a “No Frills” price. 


PS USER'S UTILITY DISK 

No Frills Software 
800 East 23rd Street 
Kearney, NE 68847 
(308) 234-6250 
$31.95, 48K disk 
Reviewed by Chester Cox 

There are several public domain pro¬ 
grams for users of Broderbund’s clas¬ 
sic Print Shop software. But nothing 
combines so many simple-to-use util¬ 
ities like No Frills Software’s new 
PS Users Utility Disk. 

This disk lets you view all your 
Print Shop icons, catalog them in al¬ 
phabetical order and print them 70 to 
a page. It will let you do the same 
thing with borders and fonts. You can 
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transfer icons from disk to disk as 
quickly as any DOS would a normal 
file. You might even consider this a 
quick DOS for Print Shop, since in ad¬ 
dition to all the above the Utility Disk 
will also delete, undelete and rename 
icons. 

More? You bet! The disk has utili¬ 
ties to print coupons or bookmarks 
with Print Shop icons, borders, and 
fonts—or using those good old nine- 
sector fonts. Using those same icons, 
borders, etc., we can create hundreds 
of labels and auto-number them. I just 
finished over 200 labels for a local 
doctor’s mailing list using this utility. 
The auto-numbering feature kept me 
from having to use a separate database. 


It also helped that PS Users’ Utility 
Disk let me select the size of label, be¬ 
cause these were non-standard labels. 

The manual is No Frills’ usual pho¬ 
tocopied cheapie, but it’s complete 
and conversational. Pay close atten¬ 
tion to the Addendum. It lets you 
know that you can use two of eight 
drives at once, and that you can save 
your design even after printing. And 
the company’s reputation for friend¬ 
liness continues with their offer to in¬ 
struct any person with a non-standard 
printer how to use control codes. 
(SASE required.) 

I use Print Shop icons on a regular 
basis and make labels for friends at 
least once a month. To me, this util¬ 


ity disk is worth the $31.95 price for 
its friendly interface alone. It really is 
easier to use than Print Shop itself. 

The program also converts icons to 
PS Companion format (which most 
icon-using programs want), while 
cataloging, a bonus I never thought 
I’d find as handy as I now do. It all 
depends on your use of icons. 

If you use Print Shop icons with 
other programs, you’ll want this pro¬ 
gram. If you use PS borders or fonts, 
you need this program. Each Atari 
user can make a significant difference 
by supporting the really useful 8-bit 
products which come our way. The 
PS User’s Utility Disk is one such 
product. A 


the Washington DjC. Area Atari Computer Enthusiast* 
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Vendor Inquiries, contact Johnna Ogden at 703-450-3992 
Hotel Accomodations at the Fairfax Quality Inn 
SPECIAL AtariFest rate - $49.50 per room/double occupancy 
Call 1-800-223-1223 for reservations. 
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DROP US A LINE! 

Our Editors would like to hear from you. Your feed¬ 
back helps us to make Antic a better magazine for 
our most important people—you. Naturally we can't 
respond personally to each letter we receive, but you 
can bet we read every one. Just send your letters to: 

Antic Magazine 
Editorial Department 
544 Second Street 
San Francisco, CA 94107 








Mapping 
Atari 

Classic 8-bit reference book 



By Ian Chadwick 


Antic continues the exclusive serialization of key ex¬ 
cerpts from the revised second edition of Ian Chad¬ 
wick’s “Mapping the Atari.” Virtually impossible to 
obtain today, this book has been one of the key refer¬ 
ence sources for intermediate and advanced Atari 8- 
bit programmers since 1983- This exclusive Antic seri¬ 
alization began in the August 1989 issue. 


112,113 70,71 ROWAC 

ROWAC and COLAC (below) are 
both working accumulators for the 
control of row and column point 
plotting and the increment and decre¬ 
ment functions. 

114,115 72,73 COLAC 

Controls column point plotting. 


116,117 74,75 ENDPT 

End point of the line to be drawn. 
Contains the larger value of either 
DELTAR or DELIAC (locations 118 and 
119, below) to be used in conjunction 
with ROWAC/COLAC (locations 112 
and 114, above) to control the plot¬ 
ting of line points. 

118 76 DELTAR 


the 


Exclusive! 


returns. 


Delta row; contains the absolute 
value of NEWROW (location 96 ; S60) 
minus ROWCRS (location 84; $54). 

119,120 77,78 DELIAC 

Delta column; contains the abso¬ 
lute value of NEWCOL (location 97; 
$61) minus the value in COLCRS (lo¬ 
cation 85; $55). These delta register 
values, along with locations 121 and 
122 below, are used to define the 
slope of the line to be drawn. 

121 79 ROWINC 

The row increment or decrement 
value (plus or minus one). 

122 7A COLINC 

The column increment or decre¬ 
ment value (plus or minus one). 
ROWINC and COLINC control the 
direction of the line drawing routine. 
The values represent the signs derived 
from the value in NEWROW (location 
96; $60) minus the value in ROWCRS 
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(location 84; $54) and the value in 
NEWCOL (locations 97,98; $6l,S62) 
minus the value in COLCRS (locations 
85,86; $55,$56). 

123 7B SWPFLG 

Split-screen cursor control. Equal 
to 255 ($FF) if the text window RAM 
and regular RAM are swapped; other¬ 
wise, it is equal to zero. In split-screen 
modes, the graphics cursor data and 
the text window data are frequently 
swapped in order to get the values as¬ 
sociated with the area being accessed 
into the OS data base locations 84 to 
95 ($54 to $5F). 

124 7C HOLDCH 

A character value is moved here be¬ 
fore the control and shift logic are 
processed for it. 

125 7D INSDAT 

Temporary storage byte used by the 
display handler for the character 
under the cursor and end of line de¬ 
tection. 

126,127 7E,7F COUNTR 

Starts out containing the larger 
value of either DELIAR (location 118; 
$76) or DELTAC (location 119; $77). 
This is the number of iterations re¬ 
quired to draw a line. As each point 
on a line is drawn, this value is 
decremented. When the byte equals 
zero, the line is complete (drawn). 


USER PAGE ZERO RAM 

User and/or BASIC page zero RAM 
begins here. Locations 128 to 145 ($80 
to $91) are for BASIC program 
pointers; 146 to 202 ($92 to $CA) are 
for miscellaneous BASIC RAM; 203 to 
209 ($CB to $D1) are unused by BA¬ 
SIC, and 210 to 255 ($D2 to $FF) are 
the floating point routine work area. 

128,129 80,81 LOMEM 

Pointer to BASIC’s low memory (at 
the high end of OS RAM space). The 
first 256 bytes of the memory pointed 
to are the token output buffer, which 
is used by BASIC to convert BASIC 
statements into numeric representa¬ 
tion (tokens; see locations 136, 137; 
$88, $89). This value is loaded from 
MEMLO (locations 743,744; 
$2E7,2E8) on initialization or the ex¬ 
ecution of a NEW command (not on 
RESET!). Remember to update this 
value when changing MEMLO to re¬ 
serve space for drivers or buffers. 

130,131 82,83 VNTP 

Beginning address of the variable 
name table. Variable names are store 
in the order input into your program, 
in ATASCII format. You can have up 
to 128 variable names. These are 
stored as tokens representing the vari¬ 
able number in the tokenized BAISC 
program, numbered from 128 to 255 
($80 to $FF). 

The table continues to store vari¬ 
able names, even those no longer used 


in your program and those used in di¬ 
rect mode entry. It is not cleared by 
SAVEing your program. LOADing a 
new program replaces the current 
VNT with the one it retrieves from the 
file. You must LIST the program to 
tape or disk to save your program 
without these unwanted variables 
from the table. LIST does not SAVE the 
variable name or variable value tables 
with your program. It stores the pro¬ 
gram in ATASCII, not tokenized form, 
and requires an ENTER command to 
retrieve it. You would use a NEW 
statement to clear the VNT in mem¬ 
ory once you have LISTed you 
program. 

Each variable name is stored in the 
order it was entered, not the ATASCII 
order. With numeric (scalar) variables, 
the MSB is set on the last character in 
a name. With string variables, the last 
character is a “$’ ’ with the MSB (BIT 
7) set. With array variables, the last 
character is a “(“ with the MSB set. 

132,133 84,85 VNTD 

Pointer to the ending address of the 
variable name table plus one byte. 
When fewer than 128 variables are 
present, it points to a dummy zero 
byte. When 128 variables are present, 
this points to the last byte of the last 
variable name, plus one. 

134,135 86,87 WTP 

Address for the variable value ta¬ 
ble. Eight bytes are allocated for each 
variable in the name table as follows: 


Byte 

Variable 

1 

2 

3 4 

5 6 

7 8 

Scalar 

00 

var# 


-six byte BCD constant- 


Array ;DIMed 

65 

var# 

offset 

first 

second 

unDIMed 

64 


from 

STARP 

DIM + 1 

DIM + 1 

String; DIMed 

129 

var# 

offset 

length 

DIM 

unDIMed 

128 


from 

STARP 
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In scalar (undimensioned numeric) 
variables, bytes three to eight are the 
FP number; byte three is the expo¬ 
nent; byte four contains the least sig¬ 
nificant two decimal digits, and byte 
eight contains the most significant 
two decimal digits. 

In array variables, bytes five and six 
contain the size plus one of the first 
dimension of the array (DIM + 1; 
LSB/MSB), and bytes seven and eight 
contain the size plus one of the sec¬ 
ond dimension (the second DIM + 
1; LSB/MSB). 

In string variables, bytes five and 
six contain the current length of the 
variable (LSB/MSB), and bytes seven 
and eight contain the actual dimen¬ 
sion (up to 32767). 

136,137 88,89 STMTAB 

The address of the statement table 
(which is the beginning of the user’s 
BASIC program), containing all the 
tokenized lines of code plus the im¬ 
mediate mode lines entered by the 
user. Line numbers are stored as two- 
byte integers, and immediate mode 
lines are given the default value of line 
32768 ($8000). The first two bytes of 
a tokenized line are the line number, 
and the next is a dummy byte reserved 
for the byte count (or offset) from the 
start of this line to the start of the next 
line. 

Following that is another count 
byte for the start of this line to the start 
of the next statement. These count 
values are set only when tokenization 
for the line and statement are 
complete. 

Tokenization takes place in a 256 
byte ($100) buffer that resides at the 
end of the reserved OS RAM (pointed 
to by locations 128,129; $80,$81). 

138,139 8A,8B STMCUR 

Current BASIC statement pointer, 
used to access the tokens being cur¬ 
rently processed within a line of the 
statement table. When BASIC is await¬ 
ing input, this pointer is set to the be¬ 


ginning of the immediate mode (line 
32768). 

140,141 8C,8D STARP 

The address for the string and ar¬ 
ray table and a pointer to the end of 
your BASIC program. Arrays are 
stored as six-byte binary coded deci¬ 
mal numbers (BCD) while string 
characters use one byte each. The ad¬ 
dress of the strings in the table are the 
same as those returned by the BASIC 
ADR function. Always use this func¬ 
tion under program control, since the 
addresses in the table change accord¬ 
ing to your program size. 

142,143 8E,8F RUNSTK 

Address of the runtime stack which 
holds the GOSUB entries (four bytes 
each) and the FOR-NEXT entries (16 
bytes each). The POP command in 
BASIC affects this stack, pulling en¬ 
tries off it one at a time for each POP 
executed. The stack expands and con¬ 
tracts as necessary while the program 
is running. 

Each GOSUB entry consists of four 
bytes in this order: a zero to indicate 
a GOSUB, a two-byte integer line 
number on which the call occurred, 
and an offset into that line so the RE¬ 
TURN can come back and execute the 
next statement. 

Each FOR-NEXT entry contains 16 
bytes in this order: first, the limit the 
counter variable can reach; second, 
the step or counter increment. These 
two are allocated six bytes each in 
BCD format (12 bytes total). The 13th 
byte is the counter variable number 
with the MSB set; the 14th and 15th 
are the line number and the 16th is 
the line offset to the FOR statement. 

144,145 90,91 MEMTOP 

Pointer to the top of BASIC mem¬ 
ory, the end of the space the program 
takes up. There may still be space be¬ 
tween this address and the display list, 
the size of which may be retrieved by 


the FRE(0) command (which actually 
subtracts the MEMTOP value that is 
at locations 741 and 742; $2E5, $2E6). 
Not to be confused with locations 741 
and 742, which have the same name 
but are an OS variable. MEMTOP is 
also called TOPSTK; it points to the 
top of the stack space pointed to by 
RUNSTK above. 

186,187 BA,BB STOPLN 

The line where a program was 
stopped either due to an error or the 
use of the BREAK key, or a STOP or 
a TRAP statement occurred. You can 
use PEEK (186) + PEEK (187) * 256 
in a GOTO or GOSUB statement. 

195 C3 ERRSAVE 

The number of the error code that 
caused the stop or the TRAP. You can 
use this location in a program in a line 
such as: 

10 IF PEEK (195) < > 144 THEN 100 
201 C9 PTABW 

This location specifies the number 
of columns between TAB stops. The 
first tab will be at PEEK (201). The de¬ 
fault is ten. This is the value between 
items separated in a PRINT statement 
by commas—such as PRINT 
A$,LOOP,C(12)—not by the TAB key 
spacing. 

The minimum number of spaces 
between TABS is three. If you POKE 
201,2, it will be treated as four spaces, 
and POKE 201,1 is treated as three 
spaces. POKE 201,0 will cause the sys¬ 
tem to hang when it encounters a 
PRINT statement with commas. To 
change the TAB key settings, see TAB- 
MAP (locations 675 to 689; $2A3— 
$2B1). PTABW is not reset to the de¬ 
fault value by pressing RESET or 
changing GRAPHICS modes (unlike 
TABMAP). PTABW works in all 
GRAPHICS modes, not merely in text 
modes. The size of the spaces be¬ 
tween items depends on the pixel size 
in the GRAPHICS mode in use. For ex- 
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ample, in GR.O, each space is one 
character wide, while in GR.8 each 
space is one-half color clock (one dot) 
wide. 

203-207 CB-CF * * * * 

Unused by either BASIC or As¬ 

sembler. 

208-209 D0-D1 * * * * 

Unused by BASIC. 

210-211 D2-D3 * * * * 

Reserved for BASIC use. 

Locations 212 to 255 ($D4 to SFF) 
are reserved for the floating point 
package use. The FP routines ae in 
ROM, from locations 53296 to 57393 
(8D800 to 8E031). These page zero lo¬ 
cations may be used if the FP pack¬ 
age is not called by the user’s pro¬ 
gram. However, do not use any of 


these locations for an interrupt rou¬ 
tine, since such routines might occur 
during an FP routine called by BASIC, 
causing the system to crash. 

212-217 D4-D9 FRO 

Floating point register zero; holds 
a six byte internal form of the FP num¬ 
ber. The value at locations 212 and 
213 are used to return a two byte hex¬ 
adecimal value in the range of zero to 
65536 (SFFFF) to the BASIC program 
(low byte in 212, high byte in 213). 
The floating point package, if used, 
requires all locations from 212 to 255. 
All six bytes of FRO can be used by a 
machine language routine, provided 
FRO isn’t used and no FP functions are 
used by that routine. To use 16 bit 
values in FP, you would place the two 
bytes of the number into the least two 
bytes of FRO (212,213; $D4,$D5), and 
then do a JSR to SD9AA (55722), 
which will convert the integer to its 


FP representation, leaving the result 
in FRO. To reverse this operation, do 
a JSR to 8D9D2 (55762). 

218-223 DA-DF FRE 

FP extra register (?) 

224-229 E0-E5 FR1 

Floating point register one; holds 
a six-byte internal form of the FP 
number as does FRO. The FP package 
frequently transfers data between 
these two registers and uses both for 
two-number arithmetic operations. 
Copyright 1983 and 1985, COMPUTEi 
Publications, Inc. 

MAPPING THE ATARI 
$16.95, COMPUTEi Books, P.O. Box 
5406, Greensboro, NC 27403. (919) 
275-9809. 


Ian Chadwick is a Toronto-based free¬ 
lance writer. A 
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Budgetizer 

Be prepared for those annual savings chompers 

By Lee Brilliant, M.D. 


Plan your monthly spending with the 
Budgetizer, so those annual big bills 
don’t catch you unprepared. This BASIC 
program works on 8-bit Atari com¬ 
puters with at least 48K memory and 
disk drive. 


Surprise! You won the lottery! 

Nice surprise, huh? Too bad most 
surprises sound more like this: 

“Uh-Oh. Property tax bill due next 
month. Where are we going to get the 
money?” 

Surprise! Well, that’s what it used 
to be like around my house every 
month. I was always getting big sur¬ 
prise bills that I knew were coming, 
but just didn’t think about ahead of 
time. Especially upsetting were those 
annual or twice-yearly biggies like 
property taxes or insurance 
premiums. 

So when I learned about the Budg¬ 
etizer method, I wrote a program to 


use it and since then have had no big 
surprises besides automobile repairs. 

Budgetizer is not just a different 
budget program, but a different way 
of budgeting. A typical budget pro¬ 
gram sets goals for various areas and 
simply tells you how much above or 
below you are in any month. Budg¬ 
etizer lets you set up a chart of all your 
bills for the year and then calculates 
how much you’ll need to put aside for 
the future to meet those expenses. 

Most people avoid the shock of 
making large payments by making 
monthly payments instead of periodic 
ones on such expenses as heating, 
mortgage and insurance. However, if 


you have an escrow account as part 
of your mortgage (to pay insurance 
and taxes) you should figure what you 
lose each year. 

If your property taxes are 81,000 
each year and home insurance is 
8500, then the interest which the es¬ 
crow company earns on this money 
is over 8100—which you will proba¬ 
bly not get back. Budgetizer essen¬ 
tially turns your irregular expenses 
into monthly payments to your own 
account, eliminating unpleasant sur¬ 
prise and saving you money. 

GETTING STARTED 

Type in Listing 1, BUDGET.BAS, 
check it with TYPO II, and SAVE a 
copy to disk. When you first RUN 
Budgetizer, it will ask whether your 
system is using one drive or two. If 
you tell the program you are using 
two drives, you need to have your 
data disk in drive two. 

Antic disk users will find a sample 
data file, BUDGET.DAT, on the disk. 
Budgetizer will look for this file, and 
if you choose EDIT from the main 
menu you will see the expense cate¬ 
gories already on disk. 
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BUDGETING SYSTEM 

Budgetizer allows you to list all 
your expenses for a whole year, then 
assigns them to one of two groups. If 
the amount of an expense is the same 
for every month the program con¬ 
siders it a fixed expense. If the amount 
differs from one month to the next it 
is considered periodic. 

Fixed expenses are stored as posi¬ 
tive numbers and periodic ones as 
negatives. When you print the budget, 
the fixed and periodic expenses are 
totaled separately for each month and 
also as grand totals. 

The periodic expenses divided by 
twelve gives you the monthly cost of 
all the irregular bills. Each month, the 
program adds the fixed costs and the 
average periodic cost, then subtracts 
the monthly periodic expense. 

You wind up with twelve numbers 
labeled RESERVE. MIN. MONTHLY 
INCOME is the minimum amount of 
income which you need to deposit 
into your checking account each 
month to cover all the expenses. RE¬ 
SERVE represents the amount of 
money that must be left in your 
checking account at the end of each 
month to meet upcoming bills. 

There are four levels to the pro¬ 


gram. The main menu allows you to 
select Print, Edit, Save, and Quit. Print 
Save and Quit are * pretty self- 
explanatory, but Edit is more 
complex. 

USING BUDGETIZER 

When you choose Edit, the pro¬ 
gram will work with the data file, 
BUDGET.DAT. If you are using two 
drives, the program looks on drive 2 
for this file. Otherwise it looks on 
drive 1. If a BUDGET.DAT file is 
found, the program loads the infor¬ 
mation automatically. 

Once you choose Edit, the next 
level is CATEGORIES. You can have 
up to six categories of expense, such 
as Loans, Utilities or Credit Cards. 

Choose a category, then go to 
FIELDS. You can have up to ten fields 
per category. Under Loans, for exam¬ 
ple, you might have House and Car. 
Finally, there are twelve RECORDS 
(monthly payment amounts) per 
field. 

Use the [CONTROL] [ARROW] keys 
to highlight your choice, then press 
[SELECT] to go to the next level. The 
[ESC] key takes you back to the previ¬ 
ous level. The arrow keys also allow 
you to move around within the win¬ 
dow and [RETURN] causes the pro¬ 


gram to read the data as it appears in 
the window. 

To eliminate a category or field, 
simply make its name all blanks and 
press [RETURN], If you change a 
name, only the name changes, the 
data stays intact. 

New fields and categories are ad¬ 
ded to the end of the list. Only up¬ 
percase letters and numbers are ac¬ 
ceptable as categories and fields. 
Records must be entered as numbers 
only. 

You can change the number of 
fields, record size, or the length of 
names if you want. But the numbers 
I used were selected because of for¬ 
matting considerations with the 
printer. All the printer codes are in 
one line at the end of the program and 
may need to be adjusted to fit your 
printer. 

EQUIVALENCING HELPS 

Much of the credit for this program 
goes to Doug White and his article, 
Equivalence , in the February, 1989 is¬ 
sue of ANTIC. His article inspired me 
with a better way to manipulate data 
fields. 

Although Doug White did not spe¬ 
cifically mention this technique, I first 
dimension my data array (ARRAY 
11,39) then a string (ARRAYS) to the 
length of one byte. Later I change the 
pointers of ARRAYS to match the lo¬ 
cation and size of ARRAY. Now I can 
clear sections of the array by blank¬ 
ing strings instead of slower FOR- 
NEXT loops. I can also move data 
around the array with fast string 
manipulations. My hat’s off to Doug 
for a fascinating and useful concept. 

I have used BUDGETIZER for two 
years now and during this time I have 
had no unpleasant major surprises. 
Now if I could only win the lot¬ 
tery. . .. A 


Lee Brilliant is a physician in Southern 
California and a longtime Atari 8-bit 
programmer-writer. His work has often 
appeared in Antic. 

Listing on page 38 
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NEW 

ATARI 

HAND-HELD 

COLOR 

GAME SYSTEM 



Portable arcade quality at $149.95 

By Andrew Reese, START Editor 


A tari’s new $149.95 hand¬ 
held color game machine 
was unveiled at the Con¬ 
sumer Electronics show 
in June. The one-pound unit, 
powered by six AA batteries, is titled 
the Atari Portable Color Entertain¬ 
ment System. I tested several of the 
units and found the games easy to use 
and quite playable. 

The Portable Color Entertainment 
System competes with Nintendo’s re¬ 
cently announced GameBoy which is 
to retail at only $89.95, but does not 
have color. The PCES has a 3-5-inch 
(diagonal) LCD color screen with 160 
X 102 resolution and a 4,096-color 
palette. It uses a 65C02 microproces¬ 
sor running at a blazing 16 mHz clock 
speed. The 64K Portable Color Enter¬ 
tainment System can access credit- 


card-sized “game cards” with as much 
as 16 megabits of ROM, allowing the 
system to run highly complex games. 
Four sound channels are included and 
there is a built-in headphone jack for 
private listening. 

A unique feature of the Portable 
Color Entertainment System is its abil¬ 
ity to network with as many as seven 
additional units for multi-player 
games. A communications cable 



California Games 


comes with each unit. The package 
also includes an AC adaptor, a carry¬ 
ing pouch and Epyx’s California 
Games card. 

The Portable Color Entertainment 
System was developed in conjunction 
with Epyx. It is controlled by an 8- 
way joypad, plus two fire buttons and 
five function buttons. The screen im¬ 
age can be turned upside down to 
make the controls more comfortable 
to left-handed players. 

According to Atari president Sam 
Tramiel, the unit has already passed 
FCC testing and goes on sale in early 
Autumn. Five additional games are 
also to be available—Blue Lightning, 
Time Quests, Treasure Chests, Gates 
of Zendocon, Impossible Mission and 
Monster Demolition. Each game will 
retail for $34.99. A 
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By Matthew Ratcliff 

Easiest access to 
your disk contents 


Quick 
Directory 



Access the directories of your disks 
while using BASIC, without exiting to 
DOS or needing to enter lines of code. 
With the Quick Directory file on your 
disk, a simple ENTER command gives 
you open sesame to directories of disks 
in any drive—in Atari DOS or 
SpartaDOS—without damaging your 
program in memory. This BASIC pro¬ 
gram works on 8-bit Atari computers 
with at least 48K memory and disk 
drive. 


T ime and time again I lose 
track of important file¬ 
names while in the middle 
of writing a BASIC pro¬ 
gram. It’s a pain to save work in pro¬ 
gress, go to DOS, get a directory list¬ 
ing, return to BASIC and then attempt 
to remember where I left off. 

A simple BASIC routine can pres¬ 
ent a directory listing: 

10 DIM A$(40) 

20 TRAP 30:OPEN # 1,6,0,”D1:7 
GOTO 40 

30 ? “ERROR “;PEEK(195):END 
40 TRAP 70 
50 INPUT # 1,A$ 

60 ? A$:GOTO 50 
70 END 

However, entering all this code ev¬ 
ery time can get tedious. Making it 
part of a program in development 
helps, but it’s easy to forget. The best 
solution is to run an assembly lan¬ 
guage utility from BASIC. But, this im- 
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plies a USR routine because Atari BA¬ 
SIC will not allow us to make calls to 
DOS directly. 

Quick Directory makes accessing a 
current directory listing quite simple. 
It will have no adverse effects on the 
BASIC program currently in memory. 

GETTING STARTED 

Type in Listing 1, QDIRMAK.BAS, 
check it with TYPO II, and SAVE a 
copy to disk before you RUN it. 

Listing 2 contains the MAC/65 
source code for assembly program¬ 
mers and requires the MAC/65 car¬ 
tridge. You do not need to type List¬ 
ing 2 to use Quick Directory. 

QDIRMAK.BAS is a BASIC Quick 
Directory maker. RUN it and the pro¬ 
gram prompts you to get a disk ready 
in drive 1. Some special text and data 
will be written to your disk in a file 
named D:QDIR. 

The D:QDIR file contains two lines 
of BASIC code with an embedded as¬ 
sembly USR routine, without line 
numbers. Try the command: 

ENTER “D:QDIR” 

Or try the Atari BASIC abbreviated 
version: 

E.“D:QDIR 

Almost immediately, the program 
will request you to specify the direc¬ 
tory you want to see. Enter D8: # .BAS 
to see all the BASIC programs on the 
disk in drive 8, for example. Unlike 
Atari DOS command A, you can’t just 
press [RETURN] to see a directory of 
the disk in drive 1. To see all the files 
on the disk in drive 1, type D: # . # . 

Use QDIRMAK.BAS to write the 
Quick Directory QDIR file to any disk 
you’re planning to use with BASIC, 
and you’ll always be able to see a 
directory of your files from BASIC 
with this simple command. 

To see what these two lines of code 
look like, remove the “REM” from 
lines 90 and 150 in QDIRMAK.BAS 
(Listing 1), and RUN the program 
again. (You may also wish to change 
the filename in line 70 to 
“D:QDIR.LST” ) Type the NEW com¬ 
mand, ENTER the new file, and LIST 


the program. All the odd control 
characters in the string assignment for 
AS make up an assembly language 
USR routine. With these two lines of 
code in a program, a directory listing 
is as simple as “A = USR(ADR(A$))”. 

SpartaDOS users might notice that 
Quick Directory file listings are in the 


long format. This makes it easy to 
keep track of file size and date stamps, 
as well as names. 

Now, whenever you forget an im¬ 
portant filename, simply type 
E.“D:QDIR to see a directory listing, 
in immediate mode. Note that you can 
get subsequent directory lists by en¬ 
tering A = USR(ADR(A$)) while still in 
immediate mode. However, this could 
be dangerous if you make a 
typographical error, or inadvertently 
zap the variable AS with a NEW or 
LOAD command. The E.“D:QDIR” 
command is the safest approach, and 
far simpler than trekking in and out 
of DOS. 

PROGRAM NOTES 

Listing 2 is the MAC/65 source code 
for Quick Directory. Assembly pro¬ 
grammers should take note of the 
“conditional assembly” technique 
employed here. Note the equates in 
lines 40 through 60: 

40 OBJECT = 1 
50 COM = 2 
60 CODE = OBJECT 
When the variable name CODE is 
set equal to OBJECT, the code be¬ 
tween the “.IF” in line 790 and the 
“ENDIF” in line 910 is assembled. 
This creates an object file suitable for 


placing in a BASIC USR routine. 

While developing Quick Directory, 
it was much easier to test the program 
from DOS. To make a version that is 
loaded and executed from DOS, sim¬ 
ply change line 60 to: 

60 CODE = COM 

When CODE is set to COM, 


MAC/65 ignores all the code enclosed 
in the first “.IF”, “.ENDIF” sequence 
noted above. The code between lines 
1630 and 1660 is assembled, however. 
These lines generate the proper 
header to execute Quick Directory 
from DOS. This technique is a valua¬ 
ble debugging tool, especially when 
developing USR routines that require 
conversion to some BASIC- 
compatible format before testing. 

The rest of the MAC /65 program is 
made up of straightforward calls to 
the CIO to open files, close files, in¬ 
put strings, and display strings. Stuff¬ 
ing the number 128 into ICAUX2 
(lines 1310 and 1320) starts the Spar¬ 
taDOS long directory listing format. 
It has no side effects on Atari DOS. 

Quick Directory eliminates many 
frustrating, time-consuming com¬ 
mutes between Atari BASIC and DOS. 
Since it runs in immediate mode, it 
consumes no valuable RAM. It does 
not gobble up Page 6 or 4, common 
hangouts of many USR routines. En¬ 
ter QDIR the next time you require 
directory assistance in a hurry, a 


Matthew Ratcliff regularly answers users' 
technical questions on CompuServe’s 
ANTIC ONLINE. 

Listing on page 41 


Quick Directory eliminates time- 
consuming commutes between Atari 
BASIC and DOS. 
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SUPER DISK BONUS 

Capture The Flag! 

Two-player madness at machine language speed 
By Brad Timmins 


A rmed with disintegration 
pistols, you and your op¬ 
ponent race through gi¬ 
ant mazes in a mad dash 
to Capture the Flag! This month’s 
Antic Super Disk Bonus is pro¬ 
grammed entirely in speedy ma¬ 
chine language. It’s a challenging 
two-player game that requires two 
joysticks and at least 48K memory. 

It’s the year 2044. Ultra-violent 
TV game shows are at the height of 
their popularity. The most popular 
game on the airwaves is Capture the 
Flag! which is played in a giant maze. 

The two home bases are placed 
in the upper left and right comers 
of the maze. A flag is placed at the 
very bottom of the maze. Two con¬ 
testants enter with their disintegra¬ 
tion pistols. The player who cap¬ 
tures the flag and successfully 
returns it to home base wins the 
round. The first player to capture 
five flags wins the game and saves 
his life! 

Capture the Flag! author Brad 
Timmins lives in Sandy, Utah. His 
program Macro RESET appeared in 
the January, 1989 Antic. 

USING THE PROGRAM 

You’ll find Capture the Flag! on 
this month’s Antic Disk as CAP- 
TURE.OBJ. Copy this file to another 
disk formatted with DOS 2.0 or 
DOS 2.5. Don’t try to run it directly 
from the monthly Antic Disk. 

Be sure your new disk contains 
the DOS.SYS file. Use DOS com¬ 



mand E to rename CAPTURE.OBJ to 
AUTORUN.SYS. Turn off your com¬ 
puter and remove all cartridges. 
Place the disk in drive 1. If you’re 
using an XL or XE computer, hold 
down the [OPTION] key while you 
turn on your computer. Capture the 
Flag! will load and run automat¬ 
ically. 

HOW TO PLAY 

Capture the Flag! requires two 
joysticks, plugged into ports 1 and 
2. At the beginning of each round, 
both players are placed on their 
home bases. To move your player, 
press the joystick in the desired 
direction. 

Each player is outfitted with a dis¬ 
integration pistol that has a maxi¬ 
mum of four shots. To fire, move the 
joystick in the direction you want to 
fire and press the button. Pistols can 
be used to blast through walls, or to 
blast the other player. A player who 
is hit goes immediately back to 
home base. If the player was carry¬ 
ing a flag, it will be dropped where 
the player was hit. 


Each maze that’s generated is far 
too latge to be displayed on a single 
screen. Instead, each player has a 
scrolling window. A master map is 
displayed at the bottom of the 
screen, showing players’ relative 
positions—but not the actual walls 
of the maze 

To pick up the flag, simply move 
on top of it. The flag is quite heavy 
and will slow down the movement 
of the player carrying it. Also, when 
the flag is carried by one player, the 
other player gets unlimited 
ammunition—but only while the 
first player holds the flag. As soon 
as the flag is dropped, the amount 
of ammunition returns to its previ¬ 
ous level. 

If you manage to make it back to 
base safely with one flag, a new 
maze appears, and off you go again. 
The first person to collect five flags 
is the Grand Champion. 

RAPID DISK 

Your October 1989 Antic Disk— 
featuring the Capture the Flag! Su¬ 
per Disk Bonus as well as every type- 
in program from this issue—will be 
shipped to you within 24 hours af¬ 
ter receiving your order. Just phone 
Toll-Free to the Antic Disk Desk at 
(800) 234-7001. The monthly disk 
is only $5 95 (plus $2 for shipping 
and handling) on your Visa or 
MasterCard. Or mail a $5 95 check 
(plus $2 shipping and handling) to 
Antic Disk Desk, 544 Second Street, 
San Francisco, CA 94107. a 
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Bottleneck Breaker 


Contest winner improves powerful BASIC speed-up tool 

By Eric Woodruff 


The April 1989 issue of Antic ran a program 
called Bottleneck Breaker by Stan Lackey. 
This BASIC profiler measured how much 
time a running BASIC program spent ex¬ 
ecuting any particular line or group of lines. 
Once identified , the most heavily used lines 
could then be streamlined to speed up the 
program's performance. 

Antic challenged readers to relocate the 
profiler's counters to the 130XE's alternate 
memory bank , allowing the profiler to work 
with larger programs. The winning entry ; 
Super Bottleneck Breaker, not only uses the 
extra memory of an XE, but features addi¬ 
tional modifications that make the origi¬ 
nal more userfriendly. This BASIC program 
works on 8-bit Atari computers with at least 
48K memory and disk drive. 


I have made the modifications to 
Bottleneck Breaker so that the 
counters are now located in the 
130XE’s extra memory. 

In addition, I modified the profiler 
to make use of all the 130XE’s ex¬ 
tended memory and now there is a 
counter for each line of a BASIC pro¬ 
gram from 0 through 31767 inclusive. 

I have also made changes that allow 
the profiler’s interrupt routine to be 
placed anywhere in memory with a 
few changes to the loader. 

By default, Super Bottleneck 
Breaker is loaded into Page 6 starting 
at memory location 1536. By modify¬ 
ing the value of the variable START in 
line 100, the profiler can be placed at 
a different memory location. If you 
prefer to reserve memory for it, you 
can place a REM on line 100 and re¬ 
move the REM from line 80. 

I moved the profiler on/off flag to 
memory location 1278 ($04FE hex). 
This allows for the program’s mobil¬ 
ity. One other thing, Super Bottleneck 
Breaker will now detect if the pro¬ 
gram is running or not, using the 
on/off flag set to on if the program is 
running (POKE 1278, non-zero 
value). If the BASIC program is not 
running, the profiler will turn the flag 
off for you and stop profiling. 

Super Bottleneck Breaker’s analy¬ 
sis routine has also been modified to 
take advantage of the extended mem- 
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ory. You can now produce a report 
to the screen or printer for a speci¬ 
fied number of bottlenecks (1-255). 

CAUTIONS 

The same cautions given in the 
original article still apply. The pro¬ 
gram you are profiling cannot use 
lines 1-3 or 31765-31766, or you 
won’t be able to add the program lines 
which control the profiler. If the 
profiler tries to sample your program 
while the BASIC interpreter is mov¬ 
ing from one line to the next, a gar¬ 
bage line number will appear in the 
final report. This happens rarely 
enough that it does not affect the re¬ 
sults in any significant way. 

One exception to the original cau¬ 
tions is that the only memory loca¬ 
tions the Profiler now uses are 208 
and 209 ($D0, $D1 hex). Still, if your 
program uses these locations, the 
profiler may produce wrong answers 
or crash. 

GETTING STARTED 

Type in Listing 1, PROFILE1.BAS, 
check it with TYPO II and SAVE a 
copy to disk. 

Next, type NEW, then type in List¬ 
ing 2, PROFILE2.LST, check it with 
TYPO II and LIST a copy to disk. If 
you have trouble typing the special 
characters in line 2, don’t type them 
in. Instead, type in Listing 4 and 
check it with TYPO II. When you 
RUN Listing 4, it creates this hard-to- 
type line and stores it in a file called 
LINES. LST. (Make sure you don’t al¬ 
ready have a file by that name on your 
disk before you RUN Listing 4.) 

To merge the two programs, type 
NEW, then ENTER “D:PROFILE2.LST” 
and then ENTER “D:LINES.LST”. Be 
sure to LIST the completed program 
to disk. 

Now, type NEW, then type in List¬ 
ing 3, PROFILE3 BAS, check it with 
TYPO II and SAVE a copy to disk. 

In addition to the programs needed 
to run the profiler, Antic Disk owners 
will find three MAC65 files on disk 
containing source code for the 
profiler (PROFILE.M65) and for the 


assembler routines that the profiler 
uses (MEMCLR.M65, CNTANL.M65). 
These files are included for the refer¬ 
ence of MAC/65 programmers and are 
not needed to run the profiler. 

USING THE PROFILER 

The procedure for running the 
Profiler is still the same as the original: 

1. RUN “D:PROFILEl.BAS” to load 
the Profiler into memory. 

2. LOAD the program to be 
profiled. 

3. Check that the program does not 
contain lines numbered 1,2,3, 31765, 
or 31766. 

4. ENTER “D:PROFILE2.LST” 

5. RUN your program. 

6. RUN “D:PROFILE3.BAS” 

When you run PROFILE3.BAS, the 

screen will blank and there is a slight 
delay while the analysis routine is 
loaded into memory. You are then 
asked how many bottlenecks you 
want to see. Enter a number from 1 
to 255. The program then asks if you 
are sure. If the wrong number was en¬ 
tered, just type an [N] and press [RE¬ 
TURN], A new value can then be 
entered. 

Next, the program informs you that 
the screen will blank during analysis 
and gives an estimated time 
(minutes:seconds) for the analysis. 
The time will vary from a few seconds 
for a small number of bottlenecks, up 
to about 8 minutes 6 seconds for 255 
bottlenecks. To begin the analysis, just 
press [START], 

When the analysis is complete, the 
screen will reappear and the total 
counts will be accumulated. A prompt 
will then appear asking if the report 
wil be sent to the screen or printer. 
Just enter an [S] or a [P] depending 
on your preference. A report is then 
prepared showing the line number, 
number of counts, percentage of to¬ 
tal counts taken up by the line, and 
a cumulative percentage. A 


Eric Woodruff lives in Medical Lake, 
Washington. This is his first Antic ap¬ 
pearance. 

Listing on page 40 
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Adventure Contest 
Winners 

Fusebox, Beachcomber and Discovery Incident 
Article by Carolyn Cushman, Antic Assistant Editor 



W hen Antic pub¬ 
lished David 
Wooley’s Adven¬ 
ture Works article 
in the April, 1989 issue, we 
challenged readers to come up with 
their own text adventures, based on 
Wooley’s sample. We received a 
number of impressive entries and 
had an enjoyable time picking out 
the most entertaining of the bunch. 

Although most of entries had fan¬ 
tasy adventures, two of the adven¬ 
tures that showed the most 
dramatic—and most imaginative— 
improvements had very prosaic 
scenarios. The object of Ray Irish’s 
Fusebox is to change a fuse. Beach¬ 
comber by J.G. Ulman takes you to 
the beach and boardwalk for a tricky 
seaside treasure hunt. 

But for a science fiction adven¬ 
ture, David Woolley himself returns 
with The Discovery Incident , a 



Beachcomber 

mystery-adventure that puts you on 
an abandoned spaceship with an un¬ 
known alien threat. 

You’ll find all three text adven¬ 
tures on this month’s Antic Disk. 
Separate HELP files with lists of 
verbs, etc. are provided for Fusebox 
and Discovery Incident. Beach¬ 
comber includes such information 
as part of its title-screen sequence. 

Since these are BASIC programs, 
you can RUN them directly from the 
Antic Disk. But if you want to SAVE 
your game to disk you will need to 
copy the text adventure to another 
disk containing the DOS.SYS file. 
Both Fusebox and Discovery Inci¬ 
dent will let you SAVE your game. 
All three games require a minimum 
of 48K memory. 

As in our original sample adven¬ 
ture, most commands require a 
VERB/NOUN combination, such as 
EXAMINE BED or FLUSH TOILET. 



Discovery Incident 

In all three games, direction com¬ 
mands require only a single letter. To 
move north, south, east or west type 
N, S, E or W. Our testers found this 
modification particularly handy — 
typing GO and a direction every 
time you move gets tedious soon. 

And now, here are the storylines 
for the winning games: 

FUSEBOX 

Late one night you find yourself 
alone in your new home using all of 
your modem electrical home appli¬ 
ances at the same time. Not a wise 
thing to do, however, because you 
just blew a fuse. It’s up to you to re¬ 
store electric power to your cozy 
home. Sounds easy? Think again! 
You don’t even know your way 
around your new house, much less 
where anything is. You can’t even 
find your cat, who’s been missing 
since you moved in. . . ► 
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Fusebox author Ray Irish added 
some fancy screens and special ef¬ 
fects that almost make dying worth 
it. To make things trickier, the list¬ 
ing has been encrypted by the au¬ 
thor. You can’t just read the program 
listing to Figure out the objects and 
commands you need. 

Fusebox has relatively few rooms 
to explore, but a lot is packed into 
those few rooms. It’s a good idea to 
make a map, so you don’t miss any¬ 
thing. Most of the things you find 
do something —if the command you 
use doesn’t work, try another. 

Ray Irish of Federal Way, Washing¬ 
ton is 20 years old. His interests in¬ 
clude Japanese comics and anima¬ 
tion, British science fiction 
television, Christian metal music and 
restoring his 1964 Olds Cutlass con¬ 
vertible. To top it off, he currendy 
works for Toys ‘R Us. 

BEACHCOMBER 

To play Beachcomber, RUN 


BEACH.BAS from this month’s Antic 
Disk. Beachcomber opens with a 
handy information screen full of 
commands and a short scenario. 
Then press [RETURN] and the actual 
adventure (in the file BEACH GAM) 
will RUN. 

Among other modifications in 
this adventure, you can drop items 
and come back to them—but items 
left unattended may well be stolen. 
There’s also a number of things you 
can’t do unless you do something 
else first, adding to the challenge of 
the game. If it seems that the shops 
on the boardwalk are all closed, 
keep exploring. At worst you’ll just 
have to retreat to your hotel, sun¬ 
burnt and thirsty, without your 
treasures. 

What makes Beachcomber partic¬ 
ularly interesting is the tricky solu¬ 
tions some of the problems require. 
You’ll find some things you need 
with ease, while others prove mad¬ 
deningly elusive Once you solve the 


various puzzles, you should be able 
to complete the adventure in about 
15 minutes—but don’t expect to be 
able to do so the first time out, or 
even the fourth. 

DISCOVERY INCIDENT 

David Woolley, author of the 
original Escape From Bamaby’s 
Isle , returns with a science fiction 
mystery, the Discovery Incident. 
You’re the captain of the starship 
Discovery, and you just awakened in 
the ship’s infirmary—with a slight 
case of amnesia. Your crew has dis¬ 
appeared, and there’s a strange, alien 
cannister in the launch bay. It’s up 
to you to figure out what happened 
and save Earth from an alien threat. 

The Discovery Incident is on the 
Antic Disk as ADVENT.BAS. This 
text adventure even includes a menu 
and a special “high tech” character 
set. If you prefer the standard Atari 
characters, you can SWAP SETS from 
the menu. A 


w 


ATARI 8-BIT POWER 


HACK BACK 

Special OFFER 

The Alpha Systems HACK RACK contains oil ou 
finest products tor making Back-up copies. 

Analyzing, Understanding and Protecting your 
Atari programs It comes complete with Atari 

Protection Techniques (Book and Disk I), Advanced Protection Techniques (Book and Disk II). The 
Chipmunk, The Scanolyzer, The Impersonator and Disk Pock 1000 Worth over SI 50. Get them all 
for the special price of Just $99.95 

Atari Software Protection Techniques V6II & II 

These Book and Disk packages detail the most advanced copy protection methods in use today They 
guide you through the methods used to create the protection as well as the copying techniques to get 
around them. They include information on Phreoking • Hocking • On line security • Black boxes • Self- 


Proteclion Sconners. directory hiding and more 

BOOK I and DISK I $24.95 

BOOK II (Advanced protection) and DISK It $24.95 
Special Offer, Order both sets for Only $39.95 

CHIPMUNK 

Automatic Disk Back-Up System. Moke perfectly running unprotected back-up copies of hundreds ol 
the most popular Atari programs. Chipmunk's sophisticated programming Automatically finds and 
REMOVES copy protection Itom most Atari programs Bock-up even heavily protected programs wrth 
ease Finally, a back-up system that needs no special hardware or skills. 

(It you need a full list ol whot Chipmunk copies, call or write lor our tree catalog) $34.95 _ 

Scanolyzer Automatically scan & analyze commercial programs Unlock programming secrets and 

team from the masters $29.95 

Impersonator Cartridge to Disk bock up system. Create running bock-up copies of any cartridge 
- (up to 16K) $29.95 


PARROT II 

Vl^^An All New Parrot sound digitizer for your Atari. Parrot II is o 
’sophisticated new hardware device that plugs into your joystick 

_ port. Parrot II has two inputs. One tor a microphone and one for o 

" powered source such as a tape player, radio or Compact Disk 
The Powerful Parrot II sottwore lets you record sounds into your computer and play them bock on ony 
Atari. Parrot II turns your computers keyboard into o musical instrument with nine different sounds 
covering three octoves each. The sounds can be anything, o dogs bark, a piano, a complete drum 
set, a symphony or your own voice 

Parrot II lets you modify the sounds on a graphic disploy to create brand new sounds and special 
effects Best of all, the sounds and voices can be put into your own programs that can be used on 
any standard Atari. Explore the world ot digital sound and music ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrof $4.95 
PARROT n Demo Disk (Does not require Parrot to ran) $5.00 

dod u onri/Eb a tost paced, multi-player trivia game that mixes questions 
rwr-n-KUV»REK with real songs (digitized 
with Parrot). Be the first to identify the songs and answer the music trivia questions. Pop-N-Rocker 
comes with three dota disks and lets you add new questions so it will never get old tou can use a 
Parrot Sound digitizer to odd new songs too! Use any kind ot music from Rock to Classical to 
Nursery Rhymes A new concept in entertainment and a perfect add-on for Porrat $24.95 

COMPUTEREYES & MAGNIPRINT II + 


irn your computer into o digital portrait studio. This complete package let 
ju capture, save & print digital images from your Video Camera. VCR 
■ TV. COMPUTEREYES hardware plugs directly into your joystick ports for 



Gel more tr 


CHEAT 


stuck just when you need another life? Cheat is an innovative new product that gives you II 
you need to beat your favorite games Cheat works with hundreds ot Atari games to give you 
unlimited lives or power. End the frustration and get hours more enjoyment from your games (Call or 
write Alpha Systems tor our tree catalog with o lull list ol the programs that work with Cheat) ONLY $24.95 

BASIC TURBOCHARGER 

NOW for the first time a BASIC programmer can get the power, flexibility and incredible speed ot 
machine language BASIC TURBOCHARGER is a book and disk package that contains over 150 
ready to use machine language routines. Complete instructions show how to odd them to your own 
BASIC programs to get these features ond more: • Smooth Scrolling • Player/Missile control • Load & 
Save Picture tiles • Sorting and Searching • Special Effects Graphics • Incredible Speed • Much. Much 
More • Over 150 programs. tou've heard of the power ot Assembler, now harness it tor your own 
needs $24.95,^^^^^^^^^^^— 

216 - 374-7489 


or TV. COMPUTEREYES hardware plugs directly into your joystick ports tor 
easy use. Print your picture on a 6 toot poster $119.95 
ComputerEyes camera system 

Comes complete with everything obove, plus a black ond white video . < 

camera and connecting cable $329.95 
Graphics 9 Software - Add a new dimension to your COMPUTEREYES giant wall SIZED POSTERS, 
pictures - captures images in 16 shades ot grey $ 12.00 
Magniprint II + 

Easily the most powedul print program available today. Print graphics tram almost any formal in 
hundreds of shapes, sizes, ond shades Supports color printing and lets you creole giant posters. 
Mogmprint II + lets you stretch ond squeeze, invert, add text, adjust shading and much more 
Works with EPSON, NEC, Citoh. Panasonic, Gemini. Star. XMM80I. ond compatible printers (850 
interlace or equivalent required). $7'' 

Graphics Transformer 

Now you can combine the most powerful features ot all your graphics programs Create print shop 
icons from a Koala pad picture, from a photo digitized with ComputerEyes. or any picture tile 
Graphics Transformer lets you Shrink, Enlarge and Merge pictures tor unequoled flexibility $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally on olternative to buying expensive computer add-ons tour Atari Comes Alive 
shows you how lo built them yourself. This How-To' book and disk package gives you complete 
step by step instructions and programs needed to built and control these exciting devices ond MORE: 

• Light Pen • Light & Motor Controllers -Alarm Systems • toice Recognition • Environmental Sensors 
•Data Decoders • More than 150 pages tour Atari Comes Alive * 


$24.95 


$24.95 


PHONE, OR SEND MONEY ORDER TO: 


ALPHA SYSTEMS 1012 SKYLAND DRIVE MACEDONIA, I 

on a disk) Free with any order ot 3 or more items Include S3 
Foreign orders odd S8.00 shp & hldg * 


_ FREE BONUS: DELUXE SPACE GAMES (3 go 

>3 00 shp & hdlg (US Canodo) Ohio res odd S '-?% soles la: 
cololog Customer Service Line (216) 467-5665 M-F 9-3 
















GAME OF THE MONTH 


lype-ln Software 


Beam Me Up! 

Stuck inside the radioactive caverns beneath Mars— 
With your transporter going nuts 

By Steven Ginzburg 



Struggle your way back to the sur¬ 
face of Mars in this game that com¬ 
bines challenging BASIC action 
and easy-to-create Micro Illustrator 
screens. This BASIC program works 
on 8-bit Atari computers with at least 
48K memory and disk drive. 


Y our one-man shuttle craft 
streaks through the upper 
atmosphere of the mysteri¬ 
ous planet. As you watch 
the red surface glide past, you won¬ 
der if you’ll die of radiation poison¬ 
ing or return to Earth a hero. Suiting 
up, you ignore the computer’s con¬ 
stant warnings of dangerous radiation 
levels. Radiation can have strange ef¬ 
fects on radio transmissions and trans¬ 
porter beams, not to mention hu¬ 
mans, but you’d rather die a hero than 
survive as a coward. 

The transporter painlessly disas¬ 
sembles you, atom by atom, and reas¬ 
sembles you. . .somewhere. After 
several minutes your eyes adjust to the 
dark. Patches of radioactive mold pro¬ 
vide an eerie, dim illumination. Oh 
no, you’re not on the planet’s surface, 
but miles below, in a string of caverns. 

Your sensor tells you that gravity is 
weak and air is almost non-existent— 
but the radiation is very strong. Your 
suit will protea you, but one touch 
of the mold would be fatal. 

Radiation makes contact with your 
ship impossible, and your transporter 
is going crazy. If you don’t keep mov¬ 
ing, you will be zapped somewhere 
else. You’ll never get back to your ship 
unless you reach the surface. 

GETTING STARTED 

Type in Listing 1, BEAM. BAS, check 
it with TYPO II, and SAVE a copy to 


disk. 

If you have trouble typing the spe¬ 
cial characters in Lines 30, 310, 336, 
810-840, 860-870, 910, 1020-1045, 
don’t type them in. Instead, type in 
Listing 2. When RUN, this program 
creates these hard-to-type lines and 
stores them in file called LINES. LST. 
To merge the two programs, type 


NEW, then LOAD Listing 1, 
“D:BEAM.BAS” and then ENTER 
“D: LINES. LST”. Be sure to SAVE the 
completed program. 

Listings 3 and 4 contain Micro Il¬ 
lustrator game screens, in BASIC 
loader formats. Type them in, check¬ 
ing them with TYPO II. When RUN, 
continued on page 32 
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AJARiWRiTER m AMM XEP M MAPI m CM 

rh .oowfl^TOANYcxjwosrrn PACKAGE C'llfk 

S4U .80COL.dispiay CD ^ f\ -12-MpNOMoKnrix* Tk|/M 
• PRINTER INTERFACE / M •ATARI 50*80 1 I ^ 


•80 COLUMN EDITING 

• EDITA BIT. PRINTER DRIVER 

• 30,000 WORD DICTIONARY 
•MAIL MERGE 

• ON 5X DISKETTE 


Evm mmm 
W/ y Printer 


12" MONO MONITOR 
•ATARI XEP80 
•ATARIWRITER 80 


•12” MONO MONITOR 

• ATARIWRTTER 80 
•ATARI XEP 80 

• 1025 PRINTER 


$229 


1020 

COMPLETE WITH 

• 2 PEN SETS 

• 1 ROLL B\ PER 

• POWER SUPPIY & CABLE 

EXTRA PEN SETS 


COLOR PRINTER 
PLOTTER 


$14.95 


1200XL 64K COMPUTER 

XTl A 256 ( (MXWS XT1 S' 

XEGS COMRVTIBI.E 

LULL' 1 M/ UAM ^ 


REX ONUmONID 


PAT TORY NIAVT 


1027 PRINTERS 1025, 

LETTER QLTY 1027 IS FACTORY NEW! DOTMA™X| 
FOR YOUR 8-BIT 

Vjj ! 1025 LS RECONDITIONED 


DISK DRIVES 
Wm 800/XL/XE 


'SSB* ATARI 810 $129.00 

IA> CABLE ATARI 1050 $169.00 


f*" 

THE BEST 
LIGHT GUN 

FOR YOUR 800/XL/XE 

$35 

OR THE PACKAGE 

LIGHT GUN AO 

CRIME BUSTERS ^ 1 1 1 tJ 
CROSSBOW M7IU7 

BARNY\RDB ASTER 


HARDWARE & 
ACCESSORIES 


850 PRINTER INTERFACE 

$79.95 

1010 PROGRAM RECORDER 

$29.95 

ATARI TWO JOYSTICK SET 

$9.95 

SPACE AGE JOYSTICK 

$14.95 

WICO COMMAND JOYSTICK 

$19.95 

WICO THE BOSS JOYSTICK 

$19.95 

ATARI TRACKBALLS 

$9.95 

ATARI SX212 MODEM 

$89.95 

AVATF.X 120011C MODEM 

$89.95 

DOS 2.5 W/ MANUAL 

$4.95 

600XL (NO Transformed 

$19.95 

400,800,850,1200X1. Transfomer 

$14.95 

XL/XF. TVansformer 

$19.95 



THE NEWSROOM 
Desktop Publisher By 
SPRINGBOARD ’ 
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BASIC CARTRIDGE 
BASIC TUTOR (2 BOOKS) 

QIX 

TURMOIL 
FAC-MAN(nobox) 

DONKEY KONG (no box) 

GORF (400,800) 

CHICKEN 
SIJMF. (400,800) 
a AIM JUMPER 
DELUXE INVADERS 
JOURNEY TO THE PLANETS $4.95 
STAR RAIDERS $4.95 

M1SSLE COMMAND $4.95 

GALA XIAN $4.95 

DEFENDER $4.95 


$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 


cAMwmm wm the mmjm. 


ET 

PACEMAKER 
MATH ENCOUNTER 
DANCE FANTASY 
LOGIC LEVELS 
MEMORY MANOR 
LINKING LOGIC 
DELTA DRAWING 
HEY DIDDLE DIDDIE 
GRANDMA’S HOUSE 
FRACTION FEVER 
ALPHABET ZOO 
ALF 

DIG DUG 
MII.IJPEDE 
SKY WRITER 
FOOTBAIJ. 


$4.95 

$4.95 

$7.95 

$8.95 

$8.95 

$8.95 

$8.95 

$9.95 

$9.95 

$9.95 

$9.95 

$9.95 

$9.95 

$14.95 

$14.95 

$14.95 

$14.95 


ROBOTRON 

TENNIS 

RNAL LEGACY 

MARIO BROS 

DONKEY KONG JR 

JUNGLE HUNT 

MOON PATROL 

BATTLEZONE 

POOD FIGHT 

HARDBALL 

FIGHT NIGHT 

ONE ON ONE BASKETBAU. 

DESERT IALCON 

NECROMANCER 

RESCUE ON FRACTAIXJS 

BALLBLAZER 

BLUE MAX 


$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 


STAR RAIDERS II $19.95 

DAVID’S MIDNIGHT MAGIC $19.95 
ARCHON $19.95 

KARATEKA $19.95 

CHOP1 JETER $19.95 

GATO $24.95 

ACE OF ACES $24.95 

LODE RUNNER $24.95 

BARNYARD BLASTER (LG) $24.95 


DARK CHAMBERS 
AIR BALI. 

SUMMER GAMES 
CROSSBOW (LG) 
EAGLES NEST 
CRIME BUSTERS (LG) 
MICROHM* (datihese) 


$29.95 

$29.95 

$29.95 

$29.95 

$29.95 

$29.9$ 

$39.95 


DAVIDT? MIDNIGHT MAGIC $4,5 Jgflg SOFTWARE FQR THE 8QMXUXE 
BANDITS (48K 400,800) $4.95 

CLAIM JUMPER $4.95 

TIME WISE $4.95 


DECISION IN THE DESERT $4.95 

CRUSADE IN EUROPE $4.95 

KENNEDY APPROACH $4.95 

OONHJCT IN VIETNAM $4.95 

NATO COMMANDER $4.95 

CROSSCHECK $4.95 

MISSION ASTEROID $4.95 


COMM BAT 
PRRPPIEI 
PREPP1E II 
THE COUNT 
FREAKY FACTORY 
LASER HAWK 
CRYSTAL RAIDFRS 
AEWENTUR BLANK) 


$4.95 

$4.9S 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 


PIRATE ADVENTURE 
SECRET MISSION 
VOODOO CASTLE 
STRANGE ODYSSEY 
REPTTJN 
HULK 

AMEN AMBUSH 
GATEWAY TO APSIIAI 


$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$4.95 

$7.95 


JAWBREAKER $7.95 

TOP GUNNER COLLECTION 
(3 GAMES) $9.95 

SILENT SERVICE $9.95 

DISPATCH RIDER $9.95 

SILICON DREAMS $9.95 

F-15 STRIKE EAGLE $9.95 

THE NEWSROOM(1050-64K) $15.00 
VISICALC $29.95 

BOOKKEEPER 

W/ num keypad $29.95 

HOME ACCOUTANT $29.95 


1010 PROGRAM 
RECORDER £29 95 

SAVE AND LOAD YOU OWN ^ ^ 


RECONDITIONED 


LIGHT SPEED C 
DEVELOPMENT KIT 


$35.95 I 


mm Ammis 


DECISION IN THE DESERT $4.95 

CRUSADE IN EUROPE $4.95 

KENNEDY APPROACH $4.95 

CONFLICT IN VIETNAM $4.95 

NATO COMMANDER $4.95 

F-15 STRIKE EAGLE $9.95 


COMPOSITE^ rn 
MONO SSM 
MONITORS 


WICO JOYSTICK SALE! 


COMMAND CONTROL 3-WAY 
BLACK MAX 


$14.95 

$9.95 


AsmA mm 
mm mm 

$199 


DOUBLE DENSITY 
DUAL DISK DRIVE 
(2 DRIVES IN ONE CASE) 





















































































MAC EMCE/Wm 

wmwvMm 

MAGIC SAC PLUS 

$59.95 

SPECTRE 128 V1.9 

$169.95 

MAC ROMS 64K 

$19.95 

MAC ROMS 128K 

$129.95 


n^som msK 

"'SPECIAL 

3.5 BULK PACKS WITH LABELS 

1-199 25-124.75 1000-1750.00 


ST COLOR & 
MONITORS 

3 TO CHOOSE 
FROM! 


's© 


MEMORY EECmmS, 


TECH SPECIALTIES 2/4Meg $149.95 
NEW WORLD UPGRADE 2/4Meg $139.95 
ARCO BOARD l/2/4Meg $169.95 


st turu © mmii 


J.A.TQ BOARD 8/16Mhz $99 

CM1 PROCESSOR ACCELERATOR $299 
Math Co-processor for CMI 12Mhz $99 


STAR PRINTERS 


STAR NX1000 9 Pin $199 

STAR NX1000 Rainbow 9 Pin $299 
STAR NX2400 4 Fonts 24 Pin $399 


HARDWARE IFF 

MS 

Mega 4ST Computer 

$1899 

JRI GENLOCK SYSTEM 

$650 

RC AEROCHOPPER 


RC Flight Simul. w/Futaba control 

$199 

ST/IME MODULE 


Battery Backed up Clock 

$59 

IMG SCAN Printer Scanner 

$89 


fax us mm mmm 

FOR FASTER SERVICE PLEASE INCLUDE: 


• NAMF. 

• BllX TO ADDRESS 

• SHIP TO ADDRESS 

• PHONEtt 


VISA / MASTERCARD 
ORDERS ONLY 


(408) 224-8574 


1200XL COO 

mmm, 


• 64K 8-bit COMPUTER 

• 1020 COLOR PRINTER PLOTTER 

• 1025 DOT MATRIX WINTER (80 CXI) 

• PACMAN CARTRIDGE 

• BASIC WITH TUTOR SET 

Give the kids something else to play 
with besides your ST! 


WL DISK 
PACKAGE 

$29.95 


•SLAGON 

• GOl.DRUNNF.R 
•JUPITER PROBE 

• KARATE KID PART II 



ST 

Knight Ore 

$9.95 

Tracker 

$9.95 

Advanced Art Studio 

$9.95 

Guild of Thieves 

$9.95 

The Pawn 

$9.95 

Golden Path 

$7.95 

Universal Military 
Simulator 

$14.95 

Carrier Command 

$29.95 

Jinxter 

$9.95 

Sentry 

$9.95 

StarGlider 

$9.95 

AI.I. ITEMS REG $39.95 

- $49.95 


ST HARP DRI VE 

smmm 


ATARI MEGAFILE 30 

$599 

AWESOME 60+ (60Meg 28ms) 

$899 

AWESOME 80+ (80Meg28ms) 

$999 


PC&QMd $49 

Designer Rcg _ * 199.95 

DESIGN YOUR OWN PC BOARDS!! 


SPECIAL 
SOFTWARE 
SALE ST 


HIT DISK (4 games) 
GaURUNNER " 
CRAB. 

INVASION 


ZERO GRAVITY 
TETRA QUEST 
TEXT PRO 
BUNT PRO 
DATA RETRIEVE 
II & DBASE 


Reg $59.95 
Reg 139.95 
Reg $19 .95 
Reg $2995 
Reg $3995 
Reg $2995 
Reg $29 .95 
Reg $49.95 
Reg $49.95 
Reg $49.95 
Reg $9995 


NCW! $2995 
NCW! $19.95 
NOV! $12.95 
NOW! $19.95 
NCW! $19.95 
NOW! $19.95 
NOW! $19.95 
NCW! $19.95 
NCW! $19.95 
NCW! $19.95 
NCW! $19.95 


THE 

0EST 



SONUS ST 
SPECIALS 


SST SEQUENCER V2.0 $99.95 
SONUS MIDI PORT B $69.95 
SONUS MASTER 

PIECE $249.95 

SONUS SUPER SCORE $229.95 


SAN JOSE COMPUTER 

THE ATARI STORE 

640 BIOSSOM Hll I RD. SAN JOSF, CA 95037 
STORE (408) 224-8575 • BBS (408) 224-9052 • FAX (408) 224-8574 


SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THAT’S IT 
WARRANTY: 90 DAY WARRANTY ON AU. ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 


Prices subject to change without notice. 

Brand and/or product names are trademarks or registered trademarks of their respective holders. 

Ad produced on an ATARI ST using CAI-AMDS and printed on an ATARI S1.MX04 PostScript compatible laser pr 


































































































continued from page 32 
these listings will create files named 
LEVEL1.PIC and LEVEL2.PIC (make 
sure you don’t already have files by 
these names on disk). 

Antic Disk users will find nine 
complete screen files already on their 
disk. The program will work with 
anywhere from one to nine screens, 
as long as the names have the num¬ 
bered format above. When the pro¬ 
gram can’t find the next screen in or¬ 
der, it will go to the ending routine. 

PLAYING THE GAME 

You start in the lower-right corner 
of the screen, and try to move to the 
hole on the left, maneuvering the lit¬ 
tle man with a joystick in port 1. In 
most places you will be able to move 
freely, left and right or up and down, 
following the terrain. Just be careful 
not to touch any of the glowing stuff! 

To avoid the patches of color- 
shifting mold, you can jump or climb 



QUESTIONS 
ABOUT YOUR 
SUBSCRIPTION? 


Get an answer fast! 

Call 

(415) 372-6002 

Write: 

Antic Customer Service 

P.O. Box 1569 
Martinez CA 94553 



on ropes and ladders. To jump, press 
the button on your joystick, and move 
the stick left, right or up. Because of 
the light gravity you will jump far and 
fall slowly. If at any point you get 
stuck, press [OPTION]. 

ADDING SCREENS 

This game uses screens created 
with Micro Illustrator software. You 
can easily make your own screens for 
the game. (Other picture formats can 
be converted to Micro Illustrator us¬ 
ing the Rapid Graphics Converter in 
the November 1985 issue of Antic.) 

Anything made in the first color 
(the default is gold) is the regular 
ground. If you come to a wall of this 
color the little man will climb right 
up it, automatically. 

The second color (green) is used for 
climbable objects, such as ropes or 
ladders. Don’t make a border in this 
color or your man could climb right 
off the screen! 

The third color (blue) is the deadly 
material. The program makes this 
color glow automatically. 

Save your picture as you would 
normally, but use the filename 
D:LEVELx.PIC. Be sure to replace the 
x with the level number you want. 
Level numbers can go from one to 
nine. The program starts with 
LEVEL1.PIC, then moves to 
LEVEL2.PIC, and so on. When the 
program can’t find the next picture, 
then the game is over, and you escape. 

When making your levels, there are 
a few things to remember. You should 
put a border on the screens. If you 
don’t, the man might climb or fall out 
of existence. You need to leave room 
for the man at the lower right corner 
of the screen, where he begins each 
level. Also, be sure to leave a hole in 
the left border for the man to go 
through to finish the level. 

Keep the little man’s size, jump 
height and distance in mind. You 
might want to make an almost empty 
level to test the man’s capabilities. 
Remember too that you only jump as 
long as you hold down the button. 


Short jumps can be useful, and as 
challenging as the longest jumps. 

When playing, you may note that 
the man’s feet sometimes seem to sink 
below the top of the ground. This ef¬ 
fect is caused by the program’s move 
routine. Make your ground at least 
four pixels deep. 

Let your creativity run wild. You 
can make levels in fun shapes, such 
as animals or words. The deadly third 
color can take any shape—spikes, 
spiders, snakes or anything else you 
can think of. 

For that matter, don’t limit yourself 
to just gold, green and blue. These are 
only the default colors. Make your 
levels, including the backgrounds, any 
color you want. You can even make 
some things the same color as the 
background, so they appear invisible. 
Just remember that the third color 
will flash no matter what you do. 

PROGRAM TAKE-APART 

In creating this game, I used many 
of my favorite programming tricks, in¬ 
cluding Player/Missile graphics, string 
manipulation, a machine language 
screen loader, and many other ideas. 
0-5 Initialization 
10-70 Title Screen 
100-260 Initialize P/M graphics 
300-450 The heart of the program: 
reads joystick, moves the character, 
determines character location, and 
flashes the deadly stuff 

500-580 Loads the screen600650 
Subroutine that moves AS to 
P/M area 

700-749 Death routine 
750-880 Set up MAINS—screen 
load routine 

900-990 Subroutine—Beam me up! 
1000-end Win routine A 


Steven Ginzburg is a budding 12-year-old 
programmer from Aptos, California, 
and is an honors student at Aptos Jun¬ 
ior High. He has been using Atari com¬ 
puters since he was five and currently 
owns three of them. This is his first ap¬ 
pearance in Antic. 

Listing on page 34 
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Credit Card Exp. Date 

Si « nature m 
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SOFTWARE LIBRARY 


TYPING SPECIAL ATARI CHARACTERS 


The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina¬ 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [3] 
key—or [ A ] on the 400/800—then 
release it before pressing the next 
key. (Press [3] or [a] again to turn 
off inverse.) For [ESC] key combina¬ 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ¬ 
ences between lookalike characters 
such as the slash key’s [/] and the 
[CONTROL] [F] symbol [0], 


NORMAL VIDEO 

FOR TYPE 

FOR TYPE 

THIS THIS 

THIS THIS 

®CTRL , 

* CTRL S 

ffl CTRL A 

ffl CTRL T 

□ CTRL B 

a CTRL u 

ffl CTRL C 

D CTRL V 

ffl CTRL D 

ffl CTRL W 

ffl CTRL E 

ffl CTRL X 

0 CTRL F 

E CTRL Y 

S CTRL G 

ffl CTRL Z 

01 CTRL H 

K ESC ESC 

□ CTRL I 

ffl ESC CTRL - 

fcJ CTRL J 

ffl ESC CTRL = 

O CTRL K 

ffl ESC CTRL + 

E CTRL L 

ffl ESC CTRL * 

13 CTRL M 

ffl CTRL . 

□ CTRL N 

ffl CTRL ; 

E CTRL 0 

® SHIFT = 

ffl CTRL P 

H ESC SHIFT 

ffl CTRL Q 

CLEAR 

S CTRL R 

ffl ESC DELETE 
(B ESC TAB 


INVERSE VIDEO 

FOR TYPE 
THIS THIS 

□ ESC . 

SHIFT 

DELETE 

□ ESC 
SHIFT 

INSERT 

□ ESC 
CTRL 

TAB 

□ ESC 
SHIFT 

TAB 

□ A CTRL . 

□ ACTRL ; 

O ASHIFT = 

□ ESC CTRL 2 

□ ESC 
CTRL 

DELETE 

□ ESC 
CTRL 

INSERT 


TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic’s type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you’ve mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap¬ 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST “D:FILENAME”,0,31999, then [RETURN], then NEW, then ENTER “D:FILENAME”, 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 


tJs 


Don't type the 
TYPO II Codes! 


32000 REM TYPO II BY ANDY BARTON 
32010 REM UER. 1.0 FOR ANTIC MAGAZINE 
32020 CLR ! DIM LINE*C120»:CLOSE «2:CL0 
5E »3 

32030 OPEN **2 , 4 , 0 , s OPEN »3,5,0,"E" 
32040 ? "H" : POSITION 11.1:? ••tinUHiaMMI" 


EM 
H 5 


XH 


32050 TRAP 32040:POSITION 2.3:? "Type 
in a prosrah line" 

32060 POSITION 1.4:? .INPUT »2;LINE 

S:IF LINES="" THEN POSITION 2,4:LIST B 
:G 0 T 0 32060 

32070 IF LINE*Cl.11="*" THEN B = UAL CLIN 
ESC2.LENCLINES>>»:P05ITI0N 2.4:LI5T B: 
GOTO 32060 

32080 POSITION 2.10:? "C0NT" 

32090 B=UALCLINESJ:POSITION 1.3*? " "J 


CE 

QR 


UG 


32100 POKE 842.13:STOP 
32110 POKE 842.12 

32120 ? "H" : POSITION 11.1:? "■UQrUtDHiiMB 
" : POSITION 2.15:LI5T B 
32130 C = 0 = AN5 = C 

32140 POSITION 2.16:INPUT »3;LINE*:IF 
LINES="" THEN ? "LINE ";Bi" DELETED"sG 
0T0 32050 

32150 FOR D=1 TO LENcLINE*>:C=C+1:ANS= 
AN5+tC*ASCCLINES CD,D>>> :NEXT D 
32160 C0DE = INT cAN5'676> 

32170 C0DE = ANS~ cC0DE**676> 

32180 HC0DE = INT cC0DE'26> 

32190 LC0DE = C0DE - CHC0DE*»26> *65 
32200 HC0DE=HC0DE+65 

32210 POSITION 0.16:? CHR*cHC0DE>;CHR* 
cLCODEJ 

32220 POSITION 2,13:? "If CODE does no 
t Match press ■IliraUHIlfldlB and edit line a 
bowe • ":GOTO 32050 
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STUCK INSIDE RADIOACTIVE MARTIAN CAVERNS 


BEAM ME UP! 


Article on page 29 


LISTING 1 




REM BERM ME UP 
REM BY STEUEN GINZBURG 
REM (01989 ANTIC PUBLISHING INC- 
DIM AS (128),FNS(15) 

N-1 • GOTO 100 

AS cY,V-»9»= s RETURN 

10 GRAPHICS 2 sPOKE 559,46:P0KE 710.0 
OKE 53256,0 = REM TITLE SCREEN 
? :? ‘ 

15 POKE 752#1’POKE 709.15:P0KE 708.207 

17 FOR 1=0 TO 10 

»6j" SIBEAMSH *ME UPW" 

22 NEXT I 

23 POKE 53256.0 
25 POKE 53248.120 

30 AS c99,106* = — S SS" 

40 Y = 100 = GOSUB 900 

50 ? s? "bu Steve Ginzburs*'!? -7 " 
PRESS START- 

60 POKE 16.64:POKE 53774.64=REM DISBLE 
BREAK KEY 

70 IF PEEK(S3279)=7 THEN 70:REM WAIT F 
OR START 
80 RETURN 

100 PM=PEEK(106)-36 
105 GOSUB 750 
110 GOSUB 600 

120 L = 0:REM INITIALIZE PM GRAPHICS 

170 POKE 623.2 

180 POKE 704,10 

190 POKE 53277,3 

200 POKE 54279, PM 

205 GOSUB 10 

210 AS ci>=-«-: AS d28> ="#•• 

220 AS c2> =AS 

230 POKE 19.0!POKE 20,0 

250 GOSUB 500 '• REM DRAW SCREEN 

260 POKE 559,46 

300 POKE 53278,X:POKE 53248,X:REM MODE 
ROUTINE 

302 POKE 77,0:REM STOP ATTRACT MODE 
305 POKE 710,RND (0)*255 

310 ASCY. Y + 7>="S<»9j@<SS-:REM PUT CHARA 

CTER ON SCREEN 

320 IF X < 46 THEN 210 

330 TRAP 700:MX=X-44:MY=Y*2-23 

332 M= (MY*160+MX)'4«R= (M INT (M) ) *4 : M = I 

NT(M)+SOB = PEEK(M) 

334 POKE 203,R : POKE 205.B 

336 Z = U9R cADR ("□SnnHi:«<B0kF[!F[i8n*fflBHHl*>: 

(BOfflafflBHQOBiaUFBIFtSnCaBHmhffi-u ! REM ML ROUT 

INE - BIT DECODER 

338 Z=PEEKC204>STRAP 40000 

340 IF PEEKCS3279>=3 OR PEEK(19)=19 TH 

EN GOSUB 900 s GOTO 300 = REM IF TIME OUT 

OR OPTION HIT 

350 IF Z=1 AND A=0 THEN 370 

360 IF Z=1 THEN GOSUB 7«Y=Y-2:G0T0 300 

370 POKE 53278.X 

380 FOR 1 = 0 TO 5 s NEXT IsA = PEEK(53252) 
400 IF A=0 AND cj>=7 OR J = 0) THEN G05U 
B 7:B=B+1sY=Y+1+tB>15>:SOUND 1,0,0,0:5 
OUND 0.Y,10,4:J=0:GOTO 300 
402 0 = 0 sIF J > =7 THEN J = 0 
405 IF A> 3 AND A<7 THEN 700 
410 IF STRIG (0) =0 THEN GOSUB 7’J = J + l* I 
F J < 4 THEN Y = Y-2 ! SOUND 1,200-J*4,10.4 
415 IF STRIG <0* =1 THEN J = 0:5OUND 1,0,0 
. 0 

420 S=STICKC0>sIF S=15 THEN 445:REM RE 
AD JOYSTICK AND ADJUST X AND Y 
425 GOSUB 7 

430 X=X+2*(5<8)~2*(5>8 AND S<13):IF N 

OT J THEN SOUND 0.100,16,8 

435 IF A < > 2 AND A<>3 AND AOS THEN 445 

EU 440 Y = Y + 3*(INT(S'4>*4 = S-1)-2* (INT (5'2> 


= 5'2)!IF NOT J THEN SOUND 0.175-Y.10, 
8 

445 SOUND 0,0,0,0 
450 GOTO 300 

500 GRAPHICS 8+16:DL=PEEK(S60>+256*PEE 
K (561) :POKE 559,0:POKE 53248,0:HEM LOA 
D SCREEN 

502 FOR 1=0 TO 199 

503 IF PEEK(DL + D=1S OR PEEK(DL+1)=15+ 
64 THEN POKE DL+I,PEEK(DL+I) 1 

504 NEXT I:5C=PEEK(88)+256*PEEK(89) 

505 POKE 559,0 
510 L=L+1 

515 TRAP 1000 : IF L = 10 THEN 1000 
520 FNS="D:LEUEL .PIC- 
530 FNS(8,8>=STRS(L> 

540 OPEN **1,4,0, FNS 

545 TRAP 40000 

550 A=USR(ADR(MAINS)i 

560 X=195:Y=104 

565 CLOSE «1 

570 POKE 559,46 

580 RETURN 

600 REM START STRING USEAGE A$ 

610 UUTP = PEEK(134> + 256*PEEK(135) 

620 0= (PM»*256 + 512) - PEEKd4 0) PEEK(141) 

*256 

630 POKE UUTP+3,INT(0^256) 

640 POKE UUTP + 2,0 INT (0^256)*256 

645 AS(1):AS(128)="B":REM CLEAR AS 

647 AS(2> =AS 
650 RETURN 

700 SOUND 1,0,0,0sY=1!REM DEATH ROUTIN 
E 

705 FOR 1=1 TO 35 

710 R=RND(0):POKE 704,R*25S 

720 SOUND 0,R*2S5,16,8 

722 ON Y GOSUB 725,726,727 

723 GOTO 730 

725 POKE 53248,X:POKE 53256,0:Y=2:RETU 


RN 


: Y = 3 s RE 


726 POKE 53248,X-4:P0KE 53256, 

TURN 

727 POKE 53248,X-12:P0KE 53256»3:Y=1sR 
ETURN 

730 NEXT I 

735 SOUND 0,0,0,0 

745 GOTO 110 

750 DIM MAINS(342):REM ML ROUTINE TO L 

0AD SCREEN 

760 RESTORE 800 

770 FOR A=1536 TO 1556 

780 READ B ! POKE A,B 

790 NEXT A 

800 DATA 162,16,169.1,157.72,3.169,0.1 
57.73,3,32,86,226,48,1,96,104,104,96 
810 mains=- hBB»a\HB» j !araaDf(owDEKiaFaHf*aBai 
f'laipno m/ant isranrinHisufflS < nnt*KK • • 

020 mains (55) =”HfflciBWRnEarriwo iT3n PiyiEHGwmn 
□ wi/Hiawj inn Bi/Hraww: ma w/Qmwcii.i^Rioawnnn- 


840 mains d75) =-/B[?inn»R/idmaDi4inum[iinmjMn 
uTtaw B/araanwRwiiraac^raumusauHraiijnra" 

850 MAINS(228)=CHRS (155) 

860 MAINS (229) ="«a j[=IHHR[3UEaHBBCnfflaPennn 

□Be friciPinnuBMHfd / ePinrannaBannn e hm 

sa- 

870 mains (29i>=-msR»onea(ernanaBaDesnm 

raiawid'-EanBBnc^anennnaBePiamaaHRiam- 

880 RETURN 

900 FOR 1=1+20*( NOT N) TO Y+7:REM BEA 

M ROUTINE 

905 SOUND 1.0,0,0 

910 A = USR ( ADR ("hHBWHBrilS") ) : REM GET RAN 
DOM NUMBER AND PUT IN 704 
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BC 

BQ 

GF 

FQ 

JH 

BH 

GN 

KQ 

YR 

no 

BN 

PG 

FP 

EY 

GF 

DI 

ZG 

PY 

IN 

JD 

ZR 

NR 

UG 

OS 

CB 


920 fl$cl,I>=CHR$cPEEKc?04:»> 

925 SOUND 0iI»12 #10 
930 NEXT I 

940 SOUND 0 * 0 * 0 * 0:POKE 704,10 

950 FOR 1=Y+7 TO 1 STEP -1 

960 A$cX,l>=”a aa 

970 NEXT I 

980 POKE 704,10 

990 X=195:Y=105:N=1:POKE 19,0:RETURN 
1000 GRAPHICS 0:REM MIN GAME ROUTINE 
1010 POKE 559,0iPOKE 712,PEEKC710J 
1015 POKE 752,1 

1020 ? •• lannnnnnnnBnnannnnnnnnns 

•• 


1030 
Ski” 
1035 
EH " 
1040 


? •• akOBuaaaaaaaB bqqqqqqqqqbli 
? •• EHnBeeeeeeeesi aeBeeeeeBBBn 
POKE 559,46 • Y = 100 * AS cl 00 > = "$ 


1045 POSITION 2,22:? " BBBBSSBBSBBS 
BBBBBY OUBE SCAPE DBB aa 
1050 POKE 53248,120:N=1:GOSUB 900 
1055 POSITION 2,22:? 

1060 POSITION 2,0:X=100 
1065 FOR N=0 TO 3 
1070 SOUND 0,X,8,8 
1080 ? "D"; 

1090 FOR Y=0 TO 100:NEXT Y:X=X-20:NEXT 

N 

1100 N = 0:GOT 0 110 


LISTING 2 


FC 

BJ 

GD 

EU 

IJ 

PR 

MO 

RD 

PY 

TH 

UB 

MY 

KB 

PU 

LM 

BQ 

YC 

DM 

BK 

MM 


CM 

UQ 

AR 

PU 

AL 

JM 

QL 


ZT 


JQ 


EP 


UY 


10 REM BEAM ME UP, LISTING 2 
20 REM BY GINZBURG 

30 REM c c > 1985,1988 ANTIC PUBLISHING 
40 REM CLINES 10-250 MAY BE USED UITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

50 REM CHANGE LINE 70 AS NECESSARY.> 

60 DIM FN$C201,TEMP$C20>,AR$C93):DPL=P 

EEKC10592):POKE 10592,255 

70 FN$="D:LINES.L5T":REM THIS IS THE N 

AME OF THE DISK FILE TO BE CREATED 

80 ? "HHI i s K or Basse tt e?" ; : POKE 764,25 

5 

90 IF NOT CPEEKC764J=18 OR PEEKc764*= 
58J THEN 90 

100 IF PEEK C764l =18 THEN FN$="C : aa 
110 POKE 764,255 : GRAPHICS 0:? •• AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"BY CHARLES JACKSON" 

130 POKE 10592,DPL:TRAP 200 

140 ? :? :? "Creating ";FN$:? "...plea 

se stand by." 

150 RESTORE :READ LN sLM=LN:DIM AS<LN>: 
C = 1 

160 AR$="":READ AR$ 

170 FOR X=1 TO LENCAR$J STEP 3:P0KE 75 
2,255 

180 LM=LM~1 : POSITION 10,10:? "CCountdo 
wn ...T-";INTcLM'10:*;"i 

190 A$cC,C>=CHR$cUALcAR$cX,X+2>>>;C=C+ 
UNEXT X : G 0 T 0 160 

200 IF PEEK C195* =5 THEN ? :? :? "BTOO 

MANY DATA LINES!":? "CANNOT CREATE FIL 
E!":END 

210 IF C < LN + 1 THEN ? :? "BTOO FEM DATA 
LINES!":? "CANNOT CREATE FILE!"s END 
220 IF FN$="C:" THEN ? :? " Prepare ca 

ssette, press [RETURN*" 

230 OPEN »1,8,0,FN$ 

240 POKE 766,1:? ttl;A$;:ROKE 766,0 
250 CLOSE «1 : GRAPHICS 0:? "■SLtMailBOBfOB 
• • 

1000 DATA 807 

1010 DATA 0510480320650360400570570440 

49048054041061034036060024126024060036 

036034155051049048032065036 

1020 DATA 0400890440890430550410610340 

36060024126024060036036034058082069077 

032080085084032067072065082 

1030 DATA 0650670840690820320790780320 

83067082069069078155051051054032090061 

085083082040065068082040034 

1040 DATA 1691921332041652032010002400 

10070204070204056233001024144242165204 

037205133204169003056229203 

1050 DATA 2010002400090702040702042302 

03024144238104096034041041058082069077 

032077076032082079085084073 


CG 


TL 


DF 


BF 


NY 


MD 


FA 


RI 


SP 


PD 


SL 


AH 


SU 


LK 


DQ 


KM 


LU 


DA 


ST 


BY 


LP 


JE 


1060 DATA 0780690320450320660730840320 

68069067079068069082155056049048032077 

065073078036061034104162016 

1070 DATA 1690071570660031692321570680 

03169000157069003169001157072003169000 

157073003169000133224032000 

1080 DATA 0061652242010072400132010132 

40016201026240060230224024144234034155 

056050048032077065073078036 

1090 DATA 0400530530410610341652321332 

34024144244165232141196002230224032000 

006165232141197002230224032 

1100 DATA 0000061652321411980022302240 

32000006165232141199002230224032000006 

165232141200002024144196169 

1110 DATA 0001332361330341550560510480 

32077065073078036040049049053041061034 

230165088133224133228165089 

1120 DATA 1332251332290320000061921362 

40094169000133227165232041128133235165 

232041127133226206014032000 

1130 DATA 0061652321332270320000061652 

32133226198226165235208028032000034155 

056052048032077065073078036 

1140 DATA 0400490550530410610340061652 

32133233024144047198226169255197226208 

245198227169255197227208237 

1150 DATA 2401830320000061652321332330 

24144019198226169255197226208238198227 

169255197227208230240034155 

1160 DATA 0560540480320770650730780360 

40050050057041061034096169002197234240 

082240201165233160000145224 

1170 DATA 0241690801012241332241690001 

01225133225230230169096197230208047169 

001197236208024024169001101 

1180 DATA 2281332281332241690001332361 

33230101229133229133034155056055048032 

077065073078036040050057049 

1190 DATA 0410610342250241440172302360 

24169040101228133224169000133230101229 

133225165235240176208149165 

1200 DATA 2331600001452240241690011012 

24133224169000101225133225165235240151 

208229034155057049048032065 

1210 DATA 0610850830820400650680820400 

34104173010210141192002096034041041058 

082069077032071069084032082 

1220 DATA 0650780680790770320780850770 

66069082032065078068032080085084032073 

078032055048052155049048050 

1230 DATA 0480320630320340320320320320 

32032006013013013013013013013013160013 

013160013013013013013013013 

1240 DATA 0130130070320320320320341550 

49048051048032063032034032032032008010 

014160014014014014014014014 

1250 DATA 0141600320321600140140140140 

14014014014014160014008010034155049048 

051053032063032034032032032 

1260 DATA 1361380131600180180180180180 

18018018005032032017018018018018018018 

018018018160013136138032034 

1270 DATA 155 


LISTING 3 


CA 

OU 

GD 

EU 

I J 
PR 

T I 

RD 

PY 

TH 

UB 

MY 

KB 

PU 

LU 

BO 


10 REM LOADER FOR LEUEL1.PIC 
20 REM BY STEUEN GINZBURG 
30 REM c C ) 1985,1988 ANTIC PUBLISHING 
40 REM CLINES 10 250 MAY BE USED UITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

50 REM CHANGE LINE 70 AS NECESSARY.) 

60 DIM FN$C20^,TEMP$C201,AR$C93J:DPL=P 
EEKC105921 :P 0 KE 10592,255 
70 FNS="D:LEUEL1.PIC":REM THIS IS THE 
NAME OF THE DISK FILE TO BE CREATED 
80 ? "RfQisk or Bassette?";:POKE 764,25 
5 

90 IF NOT cPEEK c764* =18 OR PEEKc764i~- 
5 8 > THEN 90 

100 IF PEEK C764J =18 THEN FN$="C:" 

110 POKE 764,255 sGRAPHICS 0:? " AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"B Y CHARLES JACKSON" 

130 POKE 10592,DPL : TRAP 200 

140 ? :? :? "Creating ";FN$:? "...Plea 

se stand by . " 

150 RESTORE : READ LN:LM = LN:DIM AS (LN> : 

C --1 

160 ARS="":READ AR$ 
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Yi: 

DM 

UK 

MM 


170 FUR X=1 TO LENcflHS) STEP 3:PUKE 75 
2.255 

180 LM=LM 1:POSITION 10,10:? "cCountdO 
wn • • • T; IN T cLM'10> ; "» 

190 A$ CC,C>=CHRS CUAL CARS*X,X + 2»>> :C = C* 
1 : N E X T X : G□ "f 0 160 

200 IF PEEK C195J =5 THEN ? :? :? "HTOO 

MON Y DATA LINES!-:? -CANNOT CREATE HI. 


E!”:END 

CM 210 If C < LN + 1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE EILE!":END 
UU 220 IE FN$="C«" THEN ? :? " Prepare ta 
ssette, press tRETURNJ" 

AR 230 OPEN »1,8,0,FNS 

PU 240 POKE 766.1:? ttl;A$;:POKE 766.0 
AL 250 CLOSE »1 = GRAPHICS 0:? 


JM 

UU 


ZU 


SR 


HE 


IN 


UN 


NR 


CJ 


NL 


AI 


K8 


DL 


NH 


YU 


LP 


UU 


CC 


TE 

NJ 


ZF 


UD 


NC 


EC 


CU 


1000 DATA 2119 


1010 DATA 2551282011990260000010010140 

00040000192026040204012000070008000000 

155155155155162020000076005 

1020 DATA 0190001290010760050180001290 

04077085018000129021077065002063130015 

012015000129080010085002090 

1030 DATA 0080850022451292410452400032 

43004255129127002063129015015000129064 

011085131089085090007085002 

1040 DATA 2451292410452400022430052551 

29127003255003063129003002015011000129 

064009085002166129102011085 

1050 DATA 1290210020051290010300000030 

03002015003063013255134015063015003063 

003011000129084009085131086 

1060 DATA 1021660110851310210050010310 

00002003003015002063018255130252192012 

000129064008085131169085089 

1070 DATA 0160851300210010200000020150 

03063016255002245002213006255130252240 

013000129080009085130105169 

1080 DATA 0150851300210050200000030150 

02063016255133253245213085213004255130 

240192017000129084027085129 

1090 DATA 0160210000041920022080022121 

29213014085003255130240192017000129064 

027085129084021000004192002 

1100 DATA 2080032121292130140850042551 

30063015018000129080007085129087016085 

129080033000003064002080002 

1110 DATA 0840060850042551290630190000 

07085002087015085130084064033000002064 

003080002084006065006255129 

1120 DATA 0630020150160001290640040851 

29095003255129087011085130084064040000 

002001130005021004085005255 

1130 DATA 1290630020150170001290840030 

85130087127002255129095012085130080064 

040000129001002005129021004 

1140 DATA 0850072551302521920150000022 

55129253008255129087008085130080064017 

000008003012000134003015207 

1150 DATA 0630950870070850062551302522 

40016000129255002253007255129127008085 

130084080017000008003013000 

1160 DATA 1340030152550630950870070850 

04255130243192019000129020006085129245 

003255129095006085007031003 

1170 DATA 0630031270152550100001290600 

07255129215006085004255129243020000007 

085129253003255007085006031 

1180 DATA 0030630041270142550100001290 

60007255130247213006085006255129015019 


000002080005085129213002255 

1190 DATA 1292530060850020951290870242 

55013000131192240252002255131253245117 

005085005255130063003019000 

1200 DATA 1300800840050851302532550022 

53005085131087095087025255012000131192 

240252002255002253129245006 

1210 DATA 0850082550020151300030150170 

00002064011085003255003243129240003252 

004255129252013255017000130 

1220 DATA 0640800020840050850072551330 

63015003015003016000002064129080010085 

129095002255129195002243129 

1230 DATA 2400042520172550180001310640 

80084006085010255003252019000129084008 

085003255132192252255207008 

1240 DATA 0000031921302402520082550060 

00004015002007129023006021008085009255 

003252129048018000129080008 

1250 DATA 0851290950032551292400022550 

08000003192002240009255005000004015003 

007006021009085008255129240 


1260 DATA 0240001290800060850022530022 

55003063004015003003008000129240005255 

129252008000003192003240002 

1270 DATA 2521301241270030950030870030 

85007255130252192023000129064007085129 

253002255004063003015004003 

1280 DATA 0070001301922520052550090000 

03192003240130252124002127003095003087 

003085005255130243192027000 

1290 DATA 1290640060850022550041920062 

40129192029000004015002063129255002207 

002255129245006255129192028 

1300 DATA 0001290840050851310872552400 

04192006240129192009000129192019000004 

015130063255002207003255129 

1310 DATA 2450072551292400280001290640 

04085131095255207003015036000005060129 

063006255129085007255029000 

1320 DATA 1290800040850022550040150350 

00006060129063005255002085008255002015 

028000129084002085130241240 

1330 DATA 0240001290210170000052430052 

55129085007255002015129003027000129064 

003085129240024000002021016 

1340 DATA 0001290030042430052550020850 

12255027000130080106002032129042002032 

131042032042002032131042032 

1350 DATA 0420020321310420320420020321 

31042032042002032130042085015000002015 

004207006255129085011255129 

1360 DATA 0630270001300841060020321310 

42032042002032131042032042002032131042 

032042002032131042032042002 

1370 DATA 0321310420320420020850150001 

29015005207005255130117085002255129253 

009255002015002255129015023 

1380 DATA 0001291700020001291700020001 

31170000170002000131170000170002000131 

170000170002000131170000170 

1390 DATA 0020001301700850160000030600 

03063004255130127085012255133015063255 

063003023000129170002000131 

1400 DATA 1700001700020001311700001700 

02000131170000170002000131170000170002 

000131170000170002085015000 

1410 DATA 0040600030630042551300870850 

15255002252129192022000027128129085014 

005009001002193002213129085 

1420 DATA 0152551302522400230000261280 

02085014005009001002193002213129065011 

255129243002192053000129080 

1430 DATA 0020950020870240650102550022 

43129192053000002080002095129087025085 

010255130252192054000002001 

1440 DATA 0032530022550021271290950020 

87019085009255129240055000002001002253 

003255129127002095002087019 

1450 DATA 0850092550020150540000080850 

03213003245129125002093129087013085008 

255002015129003054000007085 

1460 DATA 0032130032450021251290930020 

87013085011255131063003015051000031085 

011255129015002003051000031 

1470 DATA 0850202550020630020031290150 

03003039000006255002253002125004117012 

085002084129085019255003063 

1480 DATA 0050030400000052550032531291 

25004117012085002084002085030255130063 

015005063129015002003025000 

1490 DATA 0020210032450150850020840020 

80002064004000129085029255130063015004 

063130015063003003024000129 

1500 DATA 0010020210032450150850020841 

29080002064004000002085038255002252003 

255129063020000129021013085 

1510 DATA 0020841290800020640120001290 

85037255003252002255130063012019000129 

001013085002084002080002064 

1520 DATA 0110000020850112551292230162 

55130252255002252130240192029000129021 

006085002084002080002064013 

1530 DATA 0000020030020151310010210850 

29255003252002192028000129001007085002 

084129080002064013000002003 

1540 DATA 0020151300030010020850222550 

03252002240129192035000003080002064015 

0000020.15002063004255002253 

1550 DATA 1292130020850212550042521302 

40192035000004080002064014000129003002 

015002063004255130253245003 

1560 DATA 0850042551292060031940020020 

02194008242129194054002006000129015002 

255002253002245131212084080 
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UK 

US 

in 

Mil 

n 

DM 

HK 

1 J 
I.G 
US 
u u 

m 

Sll 


15 70 DATA 0020641290000020850042551292 

0600319412900200219400924205500200S000 

131003063255002253002245130 

1500 DATA 2132120020801290640020000020 

85004255003191130143131066128004000129 

015002255131245085080002064 

1590 DATA 0060001310631270950042550031 

91129143067128003000134003063255253213 

084002064002000134003000003 

1600 DATA 0000600150020950082551302431 

95003003062000129001002005133213253245 

085080004000130003243014255 

1610 DATA 1302431950030030610000030011 

35005021245253213085064005000028255007 

063007015007003032000010085 

1620 DATA 0030001292520282550080630070 

15007003031000129021009085129005003000 

043255002252002240002192034 

1630 DATA 0000100851290160030000041921 

29252036255002252003240002192033000129 

080009085129084004000003192 

1640 DATA 1292400292550022520022400021 

92043000129080003085129084002080129064 

011000002192130213085023255 

1650 DATA 0022520032400021920430000020 

84129085002084129080002064011000002192 

002085012255002253131245252 

1660 DATA 2440022400021920730000020850 

11255002253129245002252003240002192073 

000002085009255129218002074 

1670 DATA 0790100030000020850092551290 

90002074078010004000002085009255130085 

020083000002085009255130084 

1680 DATA 0160830000020850062551312522 

55207033015050003130001021002085008255 

033015051003129005003085092 

1690 DATA 2551290950030850922551290870 

03085 


LISTING 4 


10 REM LOADER LOR LEUEL2-PIC 
20 REM BY STEUEN GINZBURG 
30 REM cc> 1985,1988 ANTIC PUBLISHING 
40 REM (LINES 10-250 MAY BE USED U1TH 
OTHER BASIC LOADERS IN THIS ISSUE- 
50 REM CHANGE LINE 70 AS NECESSARY•> 

60 DIM FNSc20>.TEMPSC20>.ARSC93>:DPL=P 
EEKC10592J:POKE 10592,255 
70 FNS = "D:LEUEL2 - PIC":REM THIS IS THE 
NAME OF THE DISK FILE TO BE CREATED 
80 ? “Rrtflisk or Wassette?"; : POKE 764,25 
5 

90 IF NOT cPEEKc?64>=18 OR PEEKc764>= 
58> THEN 90 

100 IF P E E K c 7 64 >=18 THEN FN$="Cs" 

110 POKE 764,255:GRAPHICS 0:? " AN 

TIC’S GENERIC BASIC LOADER" 

120 ? ."BY CHARLES JACKSON" 

130 POKE 10592,DPL:TRAP 200 
140 ? :? :? "Creating ";FNS:? "...plea 

se stand by." 

150 RESTORE « READ LN : LM=LN "• DIM A$cLN>: 
C = 1 

160 ARS="":READ ARS 

170 FOR X = 1 TO LENCARS) STEP 3:P0KE 75 
2.255 

180 LM=LM-1=POSITION 10 . 10 s? "CCountdo 
wn- - -T-";INTCLM'10*; 

190 AS cC,C> = CHR$ cUAL CARS cX,X + 2> > > sC = C* 
lsNLXT X:G 0 T 0 160 

200 IF PEEK * 1 95 > = 5 THEN ? s? s? "BTOO 
MANY DATA LINES!":? "CANNOT CREATE F1L 
E!"sEND 

210 IF CCLN+l THEN ? :? "QTOO FEU DATA 
LINES!":? "CANNOT CREATE FILE!":END 
220 IF FNS="Ci" THEN ? s? » Prepare ca 
ssette, press (RETURN!" 

230 OPEN «1,8.0,FNS 

240 POKE 766.li? «tl;A$; sPOKE 766.0 
250 CLOSE nl: GRAPHICS 0:? 

1000 DATA 1393 

1010 DATA 2551282011990260000010010140 
00040000192026040204012000112005000000 
155155155155162131255095085 
1020 DATA 0160000080850330870360851291 
27002085015000009085033087036085002255 
129084016000002084006085070 
1030 DATA 2550020840150000020840070850 
71255019000003085003084020000002084011 
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IQ 

AP 

XU 

AA 

JT 

AO 

LX 

BI 

MJ 

UN 

LN 

EB 

TF 

DO 

UT 

QE 

PZ 

MT 

EG 

PO 

XC 

DO 

QS 

QQ 

KG 
AY 
RU 
Y1 
PU 

IP 

DL 


000018192002212013192003213 

1040 DATA 1292550190000040850030840200 

00129084011000018192002212014192003213 

002255091000003085129255092 

1050 DATA 0000030850022550090000361600 

02164129168028040002105008040005000003 

085129255009000037160129164 

1060 DATA 0021680270400021050080400060 

00003085002255022000002001067000003085 

129255022000003001067000003 

1070 DATA 0850022550220000020850210000 

02085029000002021013000003085129255022 

000003085021000129085029000 

1080 DATA 0020210140000030850022550220 

63002127021063130127095029015002095002 

015011000003085129255022063 

1090 DATA 0031270210631291270290150020 

95003015011000003085002255020240002245 

023240130245253029252002253 

1100 DATA 0022520110000030851292550212 

40002245023240129253030252129253003252 

011000003085002255020000002 

1110 DATA 0800230000021270290000021270 

13000003085129255021000002080023000129 

127029000130003127014000003 

1120 DATA 0850022550080000370020022550 

29002130254194008002005000003085129255 

008000038002130255003028002 

1130 DATA 0022540090020050000030850022 

55008000037128130192255029128130191131 

008126005000003085129255008 

1140 DATA 0000381260022550281280021910 

09128005000003085002255020000002005023 

000130005253029000002253013 

1150 DATA 0000030651292550210000020050 

23000130253252028000130192253014000003 

085002255020000002085023000 

1160 DATA 1300850870080030210000020850 

13000003085129255021000002085023000129 

087009003021000129085014000 

1170 DATA 0030850022550050150150000021 

27008063025255021000130085084013000003 

085129255006015015000002127 

1180 DATA 0070630262550210001290850140 

00003085002255005252015000002245008240 

014208002213129085029000129 

1190 DATA 0850140000030851292550062520 

15000129245009240014208002213029000130 

021085014000003085002255020 

1200 DATA 0000020650220000030850290001 

29085014000003085129255021000129085023 

000002085029000002085014000 

1210 DATA 0030850022550200000020850220 

00003085029000129085014000003085129255 

021000129085023000002085029 

1220 DATA 0000020850140000030850022550 

20000002064022000003064029000129064014 

000003085129255021000129064 

1230 DATA 0230000020640290000020640140 

00003085002255010000075010006000003085 

129255010000076010006000003 

1240 DATA 0850022550910000030851292550 

92000003085002255020000002021022000003 

021029000129021014000003085 

1250 DATA 1292550210001290210230000020 

21029000002021014000003085002255020000 

002085022000003085029000129 

1260 DATA 0850140000030851292550210001 

29085023000002085029000002085014000003 

085002255020015002095005015 

1270 DATA 0170000020851291270290631291 

27014063003085129255021015129095006015 

017000002085029063002127014 

1280 DATA 0630030850022550202520022530 

05252017000002085029240002245014240003 

085129255021252129253006252 

1290 DATA 0170000020850292401292450152 

40003085002255133000015012000015015000 

002085022000002085029000002 

1300 DATA 0650140000030851292550020001 

30012015017000129085023000002085029000 

129085015000003085002255133 

1310 DATA 0002430030512430400001292550 

45000003085129255002000131003243051040 

000002255045000003085002255 

1320 DATA 1330002550000632550060000330 

40130063255038040007000003085129255004 

000129003006000034040130255 

1330 DATA 2520380400070000030850022550 

44000002255045000003085129255045000129 

255046000003085002255020000 

1340 DATA 0020850220000020850290000020 

85014000003085129255021000129085023000 
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EU 

MZ 

FZ 

GH 

EM 


002085029600129065015000003 

1350 DATA 0850282550180000020850070210 

22000002095014015003085028255017000129 

021002085006021023000129095 

1360 DATA 0150150030850022550201920022 

13004192018000002085007080022000002253 

014252003085129255021192129 

1370 DATA 2130051920170000030850060800 

23000129253015252003085002255020000002 

085022000002085029000002085 

1380 DATA 0140000030851292550210001290 

85022000003685029000129085015000003085 

002255020000002080022000002 

1390 DATA 0800290000020640140000030851 

29255021000129080022000003080029000129 

064015000003085002255008000 


IK 

FN 

KK 

U1 

KP 

FU 


1400 DATA 0390020380100060000030851292 

55009000039002038010006000003085002255 

008000039128044000003085129 

1410 DATA 2550090000391280440000030850 

02255020000002005022000002005029000002 

021014000003085129255021000 

1420 DATA 1290050220000030050290001290 

21015000003085002255020000002085022000 

002085029000002085014000003 

1430 DATA 0851292550210001290850220000 

03085029000129085015000003085002255020 

000002085022000002085029000 

1440 DATA 0020850140000030851292550210 

00129085022000003085029000129085015000 

003085002255020063002127022 

1450 DATA 0630021270290630021270140630 

03095129255021063129127022063003127029 

063129127015063003095 
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1 REM BUDGET1ZER.U4 BY L- BRILLIANT M. 

D. 3 •'22'' 89 

2 REM c c > 1989. ANTIC PUBLISHING INC- HE 
10 DIM ARRAYc59,111.ARRAYS£11,DUMMYScl 
6>.CATSc96i,FIELDS£4201.LINES £1321,PRS QA 
£ 20 > . TOTAL till.HIDES ci>.BLANKS £721 

20 DIM RESERUE£111:DUMMYS="D1:BUDGET•D ON 
AT" : OPEN **1,4,0 »"K *" 

30 ? "IS <1> DISK DRIUE OR <2>?"J KL 

40 GET **1, K : IF K<49 OR K>50 THEN 40 
50 DRIUE=K: DUMMYS £2.2> = CHRS cDRIUE> ■ G05 JA 
UB 10000:GOTO 100 HR 

90 POKE 703.4:? "8PRE5S HatlHSO TO CHOO 

SE. PRESS raSUmHEl":? "AFTER EDITING. N LC 
0 CHANGE UIHOUT" SF 

91 ? "RETURN. PRESS I1HM TO GO BACK.": DA 

POKE 703.24:RETURN 

95 POSITION COL . ROU : GET **6 . X : POSITION EH 
COL.ROU:? CHRSCX+128*£X<12811:RETURN : 

REM CURSOR ON *S 

96 POSITION COL.ROH:GET « 6 .X:POSITION 
COL.ROU:? CHRScX-128*£X>1271 1 :RETURN : 

REM CURSOR OFF BU 

100 ? "Si ■MliHUWHHWijmfQWramiWamB" : ? : ? " 

1. PRINT BUDGET-:? :? "2. EDIT":? :? " BS 
3. 5AUE":? :? "4. OUIT" 

110 POKE 755.2:POKE 752.0:? i? "CHOOSE EA 
ONE"; 

120 GET ttl. K: IF K<49 OR K>52 THEN 120 UL 

130 ? :ON K-4 8 GOTO 5000.2000.6000.700 PE 

0 BL 

999 STOP BY 

2000 REM EDIT CATEGORIES 

2010 POKE 755.2 : POKE 752.H? "8 * YK 

* EDIT CATEGORIES **" 

2011 ? : ? " SBBBBBSBBSBBBBBBSI" : FOR RO SO 

U= 3 TO 8 : POSITION 4,ROU:? »[|l" : POSITION 
20.ROU:? "(T" : NEXT ROU 

2012 POSITION 4.9:? • • [SBBBBSBBSSBBBBBBPi UT 

":G05UB 90 OU 

2020 CAT=INT£LEN£CATSJ'16>:SIZE=15:FN= 

6:C0L=5:R0U=3:ASCI1=32:ASCII2=90:IF CA 
T = 0 THEN 2040 KJ, 

2030 FOR N = 0 TO CAT-1:POSITION 5.N+3:? HU 
CATScN*16+l,N*16+15i:NEXT N TA 

2040 GOSUB 95:GOSUB 2050:GOTO 2300 

2050 POKE 764,255 61 

2051 IF PEEK£53279>=5 THEN V = 1:RETURN OB 

2052 IF PEEK£764>=255 THEN 2051 L5 

2058 GET »1,K 

2060 IF PEEK£6941=128 THEN POKE 694.0: ML 

K=K-128 EG 

2070 IF PEEKC7021<>64 THEN POKE 702.64 

2080 IF K=155 THEN U=2:RETURN MI 

2090 IF K=27 THEN U=3:RETURN 

2095 IF K=126 AND C0L>5 THEN GOSUB 96: NA 


COL=COL-l:POSITION COL.ROU:? "B":GOTO 
2050 

2100 IF K=30 AND C0L>5 THEN GOSUB 96:C 
OL=COL-l:GOSUB 95:G0T0 2050 
2110 IF K= 31 AND COL<5IZE+4 THEN GOSUB 
96 •• COL=COL+l : GOSUB 95 = GOTO 2050 
2120 IF K = 2 8 AND R0U>3 THEN GOSUB 96:R 
OU=ROU-l:GOSUB 95:GOTO 2050 
2130 IF K=29 AND R0U<FN+2 THEN GOSUB 9 
6 :ROU=ROU+l:GOSUB 95:G0T0 2050 
2140 IF K< ASCII OR K1ASCII2 THEN 2050 
2150 POSITION COL,ROU:? CHRScKi:COL=CO 
L+l*cC0L<SIZE+4i:GOSUB 95:G0T0 2050 
2300 Z = ROU~ 3:ON U GOTO 2900,2350,100 
2350 GOSUB 2500:GOTO 2000 
2500 GOSUB 96 : POKE 703,4:? "S 
laraHlWSHBOIDH" : POKE 703,24 

2510 0=0:FOR N=1 TO 6:P05IT10N 4.N+2:? 

"BB":POSITION 5,N+2:Q=Q+1 
2520 FOR 5=1 TO 15:GET » 6 .X:DUMMYSc5i= 
CHRS £X> :NEXT S:POKE 755, NOT £PEEK£755 
11*2 

2530 IF N> COT THEN GOSUB 2600:GOTO 258 
0 

2540 IF DUMMYS = CATS £0*16-15, Q*»16-H TH 
EN 2580 

2550 IF DUMMYS=" " THEN 

POKE 755.2:GOSUB 2650:GOTO 2580 
2560 CATS£0*1615,Q*16-11=DUMMYS 
2580 POSITION 4.N+2:? "®":NEXT N 
2590 RETURN 

2600 IF DUMMYS=" " THEN 

Q=U1:RETURN 

2610 DUMMYS£16,161=CHRS£0>:CATScLENcU0 
TS> +1> = DUMMYS 

2 620 ARRAYS cCAT*720 + H=“»" :ARROYSccCOT 
+11*7201="»":ARRAYS£COT*720+2i=ARRAYS£ 
CAT*720+2l 

2630 CAT=CAT+1:RETURN 

2650 POKE 703.4:? "KDELETING A CATEGOR 
Y HILL ALSO DELETE ITS FIELDS AND REC 
ORDS- PRESS anmiazi TO DELETE, [=M3" ; 
2660 ? " TO ABORT" 

2670 GET »1.K 

2680 IF K=27 THEN POP :POP :POKE 703.2 
4:GOTO 2000 

2690 IF K< >155 THEN 2670 
2720 X = N-1 

2730 0=Q-1:IF X=C0T-1 THEN CATS£X*16+1 
1 =••" : GOTO 2740 

2735 CATS£Q*16+ll=CATS£0*16+171 

2736 FIELDS cQ*70 + l>=FIELDS £0*70 + 711 :FI 

ELDS £3511 ..FIELDS £4201 ..FIELDS £3 

52i=FIELDS £3511 

2738 IF 0 = 5 THEN ARRAYSC360H..GOTO 

2750 

274 0 ARRAYS £0*720 + 11=ARRAYS £0*720 + 7211 
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2750 ? "IS" : POKE 703,24 s RETURN 
2900 GOSUB 96 : IF ZXCAT THEN 3000 
2910 IF PEEK*53279*=5 THEN 2910 
2920 GOTO 2040 
3000 REM EDIT FIELDS 

3010 POKE 7 5 5,2 : P 0 KE 752,1:? 

***« EDIT FIELDS ***«" 

3011 ? :? •• fflSBBSSBBSl": FOR R0U = 3 TO 1 

2 : POSITION 4,R0U=? —Ill” * POSITION 12,ROW 
: ? ••til" : NEXT ROU 

3012 ? ” fflBBBBBBBSl" : GOSUB 90 

3020 N F = A S C (CATS *Z**16 + 16, Z**16 + 16* * : 51Z 
E = 7:F N = 10»COL = S :R0U = 3:ASCII=32:0SCII2 = 
9 0 : IF NF = 0 THEN 3040 

3030 FOR N=0 TO NF-1:POSITION 5.N+3:? 
FIELDS *Z**70 + N**7 + 1, Z*«70 + N**7 + 7> : NEXT N 
3040 GOSUB 95:GOSUB 2050 

3300 CH0ICE=R0U~3:ON U GOTO 3900,3350, 
2000 

3350 GOSUB 3500:GOTO 3000 
3500 GOSUB 96:POKE 703,4:? 
aHL<]»H0@D(Ma** : POKE 703.24 

3510 Q=0:FOR N = 1 TO 10:POSI1ION 4.N+2: 
? "SB" :POSITION 5,N+2:0=0+l 
3520 FOR S = 1 TO 7:GET **6,X:DUMMYS C5* = C 
HRS cX* :NEXT S:POKE 755. NOT *PEEK(755> 
>*•2 

3530 IF DUMMYS = FIELDS cZ**70 + Q**7-6, Z**70 + 
Q**7> THEN 3580 

3540 IF N > NF THEN GOSUB 3600:GOTO 3580 
3550 IF DUMMYS=" •• THEN POKE 755 

,2:GOSUB 3650 : GOTO 3580 

3560 FIELDS *Z*«70 + Q**7-6 , Z**7 0 + Q**7> =DUMMY 
$ 

3580 POSITION 4 , N + 2 : ? "W":NEXT N 
3590 RETURN 

3600 IF DUMMYS=" THEN 0=Q-l:RE 

TURN 

362 0 FIELDS *Z**70 + O*«7-6, Z**70 + Q**7* = DUMMY 
S:NF=NF+1:COTS CZ**16 + 16,Z **16 + 16*=CHRS (N 
F*:RETURN 

3650 FIELDS CZ**70 + Q**7~6, *Z + 1> *«70* =FIELD 
$ (Z**70 + 0*«7 + l, *Z + 1* **70* : FIELDS cZ**70 + 64 , 
Z**70 + 70* =•• 

3660 ARRAYS CZ**720 + O**72-71, *Z + 1> **720* =A 
RRAYS tZ**720 + O**72 + l. CZ + 1>**720> = ARRAYS cZ 
**72 0 + 64 8. Z**720 +72 0* = BLANKS 
36 70 NF = NF1 : CATS cZ**16 + 16 , Z**16 + 16> =CHR 
S CNF* :0 = Q1:RETURN 

3900 GOSUB 96 : IF CHOICE<NF THEN 4000 
3910 IF PEEK*53279*=5 THEN 3910 
3920 GOTO 3040 
4000 REM EDIT DATA 

4010 POKE 755.2: POKE 752,1:? "K ** 

** EDIT DATA ***•" 

4011 ? :? " SBBBBBBffl":FOR R0U=3 TO 14 

: POSITION 4.ROU:? "II” : POSITION 11,ROU: 
? ,, UI— : NEXT ROU 

4012 POSITION 4.15:? "ISBBBBBBffl" : GOSUB 
90 

4015 DATA JAN,FEB,MAR,APR,MAY,JUN,JUL. 
AUG,SEP,OCT,NOU,DEC 

4016 RESTORE 4015:FOR R0U=3 TO 14:READ 
DUMMYS:POSITION 12,ROU:? DUMMYS:NEXT 

ROU 

4020 AR = Z**10 + CHOICE * FOR N = 0 TO 11:P05I 
TION 5,N + 3:? AB5(ARRAY CAR,N>*:NEXT N 
4030 SIZE=6:FN=12:C0L=5:R0U=3:ASCII=48 
:ASCI12=58 

4040 GOSUB 95:GOSUB 2050 

4300 GOSUB 96:ON U GOTO 4040,4350,3000 

4350 GU5UB 4500:GOTO 4000 
4500 GOSUB 96:POKE 703,4=? "Si 

faramwawnma" ■ poke 703,24 

4510 FOR N = 1 TO 12:P0SITI0N 4.N + 2:? »B 
SB" : POSITION 5.N + 2 

4520 FOR 5=1 TO 6:GET «6.X:DUMMYSc5>=C 
HRS cX* :NEXT SiPOKE 755. NUT *PEEK*755> 
> **2 

4530 ARRAY <AR,N 1* =UAL(DUMMYS* :POSITIO 
N 4,N + 2:? »[|I":NEXT N 

4540 FOR N=1 TO 11:1F AHRAY*AR,0*<>ARR 
AYcAR.N* THEN 4560 
4550 NEXT N >RETURN 

4560 POP :F OR N-0 TO 11 :ARRAY*AR,N>=AR 
RAY CAR, N>*«-1 : NEXT N = RE T URN 
5000 REM PRINT 

5005 TRAP 11200 < OPEN » 2 .8.0."P = " 

5010 ? "« •••• PRINTING ***♦••:? :? 

5020 ? "ENTER TODAY'S DATE: ":INPUT DU 
MMYS:POKE 752,1:? 


QY 

YP 

AK 

YJ 

HF 


MR 

IZ 

CZ 

CU 


NG 


TR 

I J 
HN 

UU 

MM 


MX 


5 U 
UE 


5030 ? **2 J PRS : ? »2 : ? »2 ; HIDES ; "BUDGET 
PRINTED ";DUMMYS:? »2 
5040 ? «2j" JAN FEB 

MAR APR MAY JUN 

JUL AUG SEP"; 

5050 ? «2;» OCT NOU 

DEC- 

5060 FOR N = 0 TO CAT -1:? »2;HIDE$;CAT $c 
N**l6 * 1, N**16 + 15* 

5070 NF = A5C (CATS tN**16 + 16> * : IF NF = 0 THE 
N 5100 

5080 FOR S = 0 TO NF-1 : AR = N**10+S : ? «2 ; " 

»; FIELDS cAR**7 + l, AR**7 + 7> .: FOR X = 0 TO 11 

:? «2;BBS(ARRAY CAR,X**,=NEXT X = ? «2 

5090 NEXT S:NEXT N 

5100 POKE 703,4:? "IS 

ffl":POKE 703.24:? «2;LINES 

5110 TOTALP=0:TOTALN=0=R=0:FOR X=0 TU 

11 

5120 FUR N = 0 TO CAT**10 

5130 D = ARRAY*N.X* :IF D<0 THEN TOT ALN = T 
OTALN+D 

5140 IF D > 0 THEN TOTALP = TOTALP + D 
5150 NEXT N = TOTAL *X> = TOT A L N** - 1 : R = R» TOT 
ALN:TOTALN=0:POKE 755, NUT cPEEK*755*> 
*♦2 

5200 NEXT X:F1XED = INT (TOTALP/12* :PERIO 
DIC = R''12**-1 

5210 ? «2;"FIXED",:FOR N=0 TU 11:? »2; 
INT (FIXED* .:NEXT N:? «2 

5220 ? «2;"PERIOD",:FOR N=0 TO 11:? »2 
;TOTAL*N>,:NEXT N:? »2 

5230 ? **2 ; LINE S : ? »2 J "TOT AL" , : FOR N 0 
TO 11:? »2;INT(TOTAL(N*+FIXED* .: NEXT N 
: ? «2 

5240 RE5ERUE=0:FOR N=0 TO 11=RESFRUL=R 
ESERUE-TOTAL *N>+PERIODIC:HLSLRUL *N* = RE 
SERUE:NEXT N 

5250 X = 0:F 0 R N = 0 TO 11:IF RESEHUE *N> <X 
THEN X=RE5ERUE*N* 

5255 NEXT N 

5260 IF X<0 THEN FOR N=0 TO 11:RESLRUE 
*N*=RE5ERUE*N*-X:NEXT N 

5270 ? **2 : ? «2; "RE5ERUE", = FOR N = 0 TO 1 
l:? »2;INTCRESERUECN>*,:NEXT N=? »2 
5280 ? **2 : ? »2;"MIN MONTHLY INCOME = ";F 

IXED+PERIODIC,,"BALANCE - 

-" = ? »2 

5290 ? «2,,,,"BILLS DUE 

-":? **2 : ? **2, ,,, "BILLS OUT ♦- 

_••:? «2 

5300 ? «2-"RESERUE -- 

-" : ? » 2 

5310 ? »2.,.."AUAIL BALANCE - 


5380 ? »2;CHRSC12*:CLOSE »2=G0T0 100 
6000 REM SAUE 

6010 POKE 752.1:? "IS **** 5AUING T 

□ DISK ***♦" 

6015 DUMMY$=“D1:BUDGET.DAT":DUMMYS*2,2 
> =CHRSCDRIUE* 

6020 TRAP 11300=OPEN »3,8,0,DUMMYS 
6030 PRINT **3 ; C ATS : ? «3 ; FIELDS cl, CAT**7 
0*:? »3; ARRAYS Cl, CAT**720> 

6040 CLOSE **3 
6-050 GOTO 100 
7000 REM QUIT 

7010 ? "BOAT A NOT 5AUED• OUIT? <Y'N>" 


EM 


7020 GET **1, K : IF K = 78 THEN 100 
7030 IF K< > 89 THEN 7020 
7050 ? "BIBUDGETIZER" : END 

10000 UUTP = PEEK(134*+256**PEEK(135> =POK 
E UUTP+10.PEEKcUUTP+2*:POKE UUTP+ll.PE 
EKcUUTP+3* 

10020 POKE UUTP+14,224:POKE UUTP+15.16 


MU 


UU 

XB 

AU 

LP 

UT 


JA 

UZ 


10030 ARRAYS cl* =”«":ARRAYS*4320*="W":A 
RRAYS(2>=ARRAYS:BLANKS=ARRAYS:FIELDS-A 

10035 LINES cl* =»_•■: LINES *132*="-" : LINE 
S *2* =LINES 

10040 OPEN «6.12.0."S" 

10045 TRAP 11000:OPEN »2,4,0,DUMMYS 
10050 INPUT «2;CATS:CAT=INTCLENCCATS*/ 
16* 

10060 AD=ADR*FIELDS)=HI=INT*AD'256>:L0 
= AD HI**256:P0KE 866,7 = P0KE 868,L0 = P0KE 
069,HI 

10065 AD = CAT**70 :HI = INT*AD^256>:L0 = AD H 
I **256 : PUKE 872,L0:P0KE 873.HI 
10070 FIELDS *AD* =” " : A = U5R * ADR *"hB LUtTI 
" * > : GET **2 , X : IF X<>155 THEN 11100 
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ox 


HM 


UC 

UU 


DD 

ES 


10080 AD=ADRcARRAY$> * HI=INT cAD'256> =LO 
=AD*HI*256 : POKE 866.7=PUKE 868,L0:P0KE 
869,HI 

1008b AD = C A T **72 0 : HI = I NT cAD'256» =LO=AD 
HI**256 s POKE 8 72 , LO '• POKE 873, HI 
10090 A = 05R c ADR C"hl LUFI"> > : CLOSE »2 
10110 WIDE$=CHR$ C14J : PR$ = "!fcJBf*!fcMW!feUCI” 
10120 LINES ci> =••_••: LINES tl32> : LINE 

S c2>= LINES 
10200 RETURN 

11000 CLOSE *»2 : IF PEEK C19b> < >170 THEN 
11020 


11010 C A T = 0 : SOTO 10110 

11020 ? "KIDISK ERROR tt" ; PEEK C195J ; . P 

RE5S ANY KEY.":GET «1.K'G0T0 1004b 
11100 CLOSE **2 • ? "M50METHING IS WRONG 
WITH THE DATA FILES.":? "ERASE 1 BUDGET 
■DAT AND RESTART.":END 

11200 ? "RPRINTER ERROR. PRESS ANY KEY 
• " : GET **1, K : G0T0 100 

11300 CLOSE **3: ? "RDISK ERROR »";PEEK« 
19b>;"■ PRESS ANY KEY.“:GET «1.K:G0TU 


IMPROVING A POWERFUL BASIC SPEED-UP TOOL 


SUPER BOTTLENECK 


BREAKER 

LISTING 1 


Article on page 25 


LISTING 3 


GG 

AJ 


NG 


ZN 


KL 


SR 


ZW 


ST 

RJ 


OU 

SN 


10 REM BASIC PROFILER, PART 1 
20 REM BY STAN LACKEY 
30 REM XE UERSION BY ERIC WOODRUFF 
40 REM (c> 1989, ANTIC PUBLISHING 

S0 REM 

60 REM If reserving Henory, renove REM 
on line 80 and add REM to line 100. 

70 REM Don’t drop nunber of rases rese 
rved below 16! It’s the Nininun reserv 
ation so as not to cause probiens. 

80 REM 5TART = PEEKcl06>**256 10b : POKE 10 
6,PEEKC106J-16:POKE 740.PEEKC106J 
90 REM Otherwise, use the following li 
ne. Place the address after "START =" 
100 START=1536 

110 GRAPHICS 0:? :? " Loading P 


130 
,21 
138 
140 
01 , 
4,1 
160 
24. 
10 b 
160 
69. 
04 , 
170 


FOR I=START 
I.A:NEXT I 
DATA 173,254. 
1,72,160,0,177 
,48,67,10,24,6 
DATA 0.201,64 
128.176,4.160, 
60,2,208,2,160 
DATA 41,63,9. 
105,193,141.1, 
, 1.146.208,144 
DATA 177.208, 
0,141,254,4.1 
64 


0 START+101:READ A:PO 

4,240.96.152,72.173.1 

.138,133,208.200,177. 

.208.105 

.176.4,160,0,240,18,2 
1.208,10.201,192.176. 
, 3 

64,133.209,152.10,10, 

211.160.0.177.208.24, 

.14,200 

106,0,145.208.208,5,1 
141,1,211.104,168.1 


190 POKE 528,LO:REM UT1MR1 UECTOR LOW 
200 POKE 529,HI:REM UTIMR1 UECTOR HT 
210 POKE 53761.0:HEM UOLUME TO ZERO 
220 POKE 53760.255:REM FREO OF T MR 1 
230 POKE 53769.255=REM TURN ON TIMERS 
240 POKE 16,193:REM SET TM1NT1 
250 ? "Done...":? :? "Next:":? :? "LUA 
D the prosran to be Profiled.":? 


260 ? :? "ENTER ";CHRSc34> ;"D : PROF1LE2 
•LST";CHRSC34>:? 

270 ? :? "HUN" 


LISTING 2 


DR 


GP 


UC 

U 

UA 


1 REM BASIC PROFILER, PART II 
XE REUISION BY ERIC WOODRUFF 
cc> 1989, ANTIC PUULI5HING 

2 X U 5 R cADR <" hFJ J Tli HFMGE»L.L. *• i ffliilBHBMQeClUU 

n(:<i5ianra[aran[i»na[ii*5i!®HW">> :rem clear extr 

A RAM 

3 POKE 1278,1:REM START PROFILING. 

31765 POKE 1278,0:REM STOP PROFILING 

31766 ? "Done...":? :? "Next:":? :? "R 

UN ";CHRS C34J j"D s PROFILE3•BAS"; CHRS c34 
> 


US 

JH 

LC 

IF 

BC 

II 

YR 

SN 


UU 

AO 

HE 

HU 

BZ 

NZ 

EF 

ZU 


UU 

GX 

SE 


10 REM BASIC PROFILER, PART 3 
20 REM BY STAN LACKEY 

30 REM XE REUISION BY ERIC WOODRUFF 
40 REM co 1989, ANTIC PUBLISHING 
50 REM 

60 POKE 1278,0:GRAPHICS 0:POKE 710.146 
:POKE 712,146 

70 POKE 559,0:RESTORE 80=FOR 1=39424 T 
0 39655:READ A:POKE I,A:NEXT I 
80 DATA 104.104,133,223,133,221,104,13 
3.222.133.220,104,104,133,207,173,1.21 
1.133.208,169,0,133,218,133,219 
90 DATA 133.214,133,215,165,218.133,20 
3,165.219,10,24.6,203,105.0,201.64.176 
,4,160.0,240,18,201,128 

100 DATA 176,4,160,1,208,10,201.192.17 
6,4.160,2.208,2.160,3,41,63,9,64.133,2 
04,152,10,10.24 

110 DATA 105,193,141,1.211,160.1,177.2 

03,208,6,136,177,203,240,93,200.177,20 

3,133,227,197,215,144,84,208 

120 DATA 7,136,177,203.197,214,144.75. 

160,0.177,203,133,226,165.219,133.225, 

165,218,133,224,165,208,141,1 

130 DATA 211,165,220,133,205,165,221,1 

33,206,160,0,177,205.197,224,208,7,200 

.177,205,197.225,240,33.169,4 

140 DATA 24,101,205.133,205,144,2,230, 

206,160,0,169,255,209,205,208,222,200, 

209,205,208,217,162,3.181,224 

150 DATA 149.212.202.16,249,165,208,14 

1,1,211.230,218,208,4,230,219,48,3.76, 

30,154,160,3,185.212,0 

160 DATA 145.222,136,16,248,165.222,24 
,105.4,133,222.144,2,230,223.198,207,2 
40,3,76,20,154,96 

170 REM ANALYSIS STRING: 4 BYTES PER E 
NTRY 

180 HEM LO, HI BYTE OF COUNTER, 

190 REM LO, HI BYTE OF COUNT. 

200 REM 

210 DIM ANLSC1023>,YNSci> 

220 ANLSci>=CHR$c255> :ANL$cl023>= CHRS c 
2 5 5 > : ANL$C2>=ANL$ 

230 TRAP 230:POKE 559.34:? "R Profil 
er Bottleneck Analysis":? :? 

240 ? "How nany bottlenecks do you wan 
t"«? "to see C1-255J";:INPUT NUM 
250 IF NUM<1 OR NUM>255 THEN 240 
260 ? :? "Are you sure cY'N>":INPUT YN 
$ 

270 IF YN$<>"Y" AND YNSO"N" THEN 260 
280 IF YN$C>"Y" THEN 230 
290 ? :? "During analysis, the screen 
will be blank to speed up caiculatio 

n • " : ? 

300 TMIN=INTcCNUM'255>*485>+1:IF TMIN< 
60 THEN T5EC=TMIN=TMIN=0:GOTO 320 
310 TSEC = TMIN INT cTMIN^©* **60 : TMIN = INT 
cTMIN'60> 

320 ? "Estinated tine cM:S5>: ";TMIN;" 
:";T5EC 


40 
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330 ? :? •• *** PRESS START TO ANALYZ 

340 IF PEEKC53279J<>6 THEN 340 

350 POKE 559.0:X=USRc39424.ADRcANLS],N 

UI1> 

360 POKE 559. 34 : POKE 752.1:? "HANALY5I 
S COMPLETE." 

370 TC = 0 : FOR 1 = 1 TO NUM**4 STEP 4 
380 POSITION 2.2-7 "TOTAL COUNTS:"jTC 
390 CT = A5CcANLS cl+2.I+2>]+A5CcANLScl+3 
, I+3>>*256 

400 TC=TC+CT:IF CT<>0 THEN NEXT I 
410 TRAP 410:? "Report on screen or pr 
inter cS'PJ ";: INPUT YNS 

420 IF YNS<>"5" AND YNSO"P" THEN 400 
430 IF YN$="P" THEN LPRINT "TOTAL COON 
TS:";TC:LPRINT "LINE"."COUNT"."PERCENT 
".“CUML X» 

440 IF YNS="5" THEN PRINT ”LINE"."COUN 
T". "PERCENT"."CUML X» 

450 CUM= 0:F0R 1 = 1 TO NUM«4 STEP 4 
460 LN = A5C < ANLS cl,I> J + A5C < ANLS cl + l,1 + 1 
> >*256 

470 CT = ASCtftNLS cl + 2.I + 2> >+ASCcANLScI+3 
. 1 + 3> > **256 

480 IF C T = 0 THEN 540 

490 PCT=CT'TC : CUM=CUM+PCT 

500 Y=CINTC0.S + 10000*»CUM>J/100 

510 X=clNTc0.5*10000*PCT>>'100 

520 IF YNS="S" THEN PRINT LN.CT.X.Y 

530 IF YNS="P" THEN LPRINT LN.CT.X.Y 

540 NEXT I:POKE 752,0:END 


LISTING 4 


10 REM BASIC LOADER FOR PR0FILE2.L5T 
20 REM BY STAN LACKEY 

30 REM cc> 1985.1988 ANTIC PUBLISHING 
40 REM (LINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

50 REM CHANGE LINE 70 AS NECESSARY•> 


60 DIM FNSc20>,TEMPSC20>.ARSC93>:DPL=P 

EEKC10592J=POKE 10592.255 

70 FNS="D:LINES•L5T":REM THIS IS THE N 

AME OF THE DISK FILE TO BE CREATED 

80 ? "N[CisK or Cassette?"; : POKE 764.25 

5 

90 IF NOT CPEEKC764>=18 OR PEEK«764>= 
58 J THEN 90 

100 IF PEEK c764> =18 THEN FNS="C:" 

110 POKE 764.255 sGRAPHICS 0:? " AN 

TIC’S GENERIC BASIC LOADER" 

120 ? ."BY CHARLES JACKSON" 

130 POKE 10592,DPL:TRAP 200 

140 ? :? »? "Creating ";FNS:? "...plea 

se stand by.” 

150 RESTORE :READ LN:LM=LN:DIM A$cLN): 
C = 1 

160 ARS=""s READ ARS 

170 FOR X=1 TO LENCARSJ STEP 3:P0KE 75 
2,255 

180 LM=LM1=POSITION 10,10:? "CCountdo 
wn...T-";INTcLM'10>; 

190 A$CC,C>=CHRScUALcfiR$iX,X+2>J>:C = C* 
1:NEXT X : GOTO 160 

200 IF PEEK C195J =5 THEN ? :? :? "QTOU 

MANY DATA LINES!":? "CANNOT CREATE FIL 
E!”:END 

210 IF CCLN+l THEN ? :? "BTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE!”:END 
220 IF FNS = “C s" THEN ? :? " Prepare ca 
ssette, press [RETURN]" 

230 OPEN »1,8,0,FN$ 

240 POKE 766.1:? ni;A$;:POKE 766.0 
250 CLOSE **1 : GRAPHICS 0:? 

1000 DATA 82 

1010 DATA 0500320880610850830820400650 

68082040034104169003133205174001211165 

205010010024105193141001211 

1020 DATA 1600001690641332041521332031 

45203230203208250230204016246198205016 

223142001211096034041041058 

1030 DATA 0820690770320670760690650820 

32069088084082065032082065077155 


EASIEST ROUTE TO YOUR DISK CONTENTS 

QUICK DIRECTORY 


LISTING 1 


Don't type tht 
TYPO II Codes 




0 REM SAUE"D:QDIRMAK.BAS" 

10 DIM JSC10J 

20 GRAPHICS 0:? "QuicK Directory, by M 
at*Rat" 

30 ? "Cc> 1989, Antic Publishing" 

40 ? :? "Get disK in Drive 1 ready" 

50 ? "and Press RETURN ";:INPUT JSs? s 
? 

60 RESTORE 

70 TRAP 80 : OPEN *»1,8.0, "D = QDIR" = GOTO 9 
0 

80 ? "Couldn't create D:ODIR.":? "ERRO 
R "1PEEKC1951:END 
90 REM ? *»1,"10 

100 ? »1)"CLR:DIM ASC153> : AS cl.1001="; 
CHRS C34>1 

110 FOR 1=1 TO 100 

120 READ A•? tti;CHRScA>; 

130 NEXT 1 

140 ? ttl;CHRSc34>;CHHScl55>J 

150 REM ? «1 t "20 "J 

160 ? ttl;"A*<101,ib3 >="jCHRSC34>; 

170 FOR 1=101 TO 153 
180 READ A < ? n1:CHHS cA> ; 

190 NEXT I 

200 ? »1;CHRSC34>j" i? ";CHRSc34>;"Dir 
Spec "; CHRS C34> j " j « A = U5R < ADR (ftS> > •• 

210 CLOSE »1 


220 ? :? "Done." 

230 ? "Try E . ";CHRSc34>;"D:UDIR" 

240 ? "to set a quick directory" 

250 ? "listing now!":? :? :? 

260 ? : ? "E . "jCHRS C34> ; "D UDIR"; CHRS C2 

8];CHRSC28>;CHRSC28> = END 

270 DATA 104.240,6,170,104,104,202.208 


280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 


DATA 251,162.0,169.11.141,66,3 
DATA 142,72,3,142,73,3,169,63 
DATA 32.86.228,169,5.141.66,3 
DATA 169,4,141.69,3.142,68,3 
DATA 169,40,141,72,3,32,86,228 
DATA 162,80,169.12.157,66,3.32 
DATA 86.228,169,3.157,66,3,169 
DATA 4.157.69,3,169,0,157,68 
DATA 3,169,6,157,74.3,169.128 
DATA 157,75,3.32.86,228,48,55 
DATA 162,80,169,0,157.68,3,157 
DATA 73,3,169,4,157,69.3.169 
DATA 40,157,72,3.169,5,157.66 
DATA 3,32,86.228,48.25,162.0 
DATA 169,4.141.69,3,142.68.3 
DATA 169.40.141,72,3,169,9.141 
DATA 66,3,32,86,228,16,201.162 
DATA 80.169.12,157,66,3,76,86 
DATA 228, 1 
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CLEON 


LISTING 2 

0 ; 5 AUE**D s QD1R • M6 5 
10 ;A5M.** ,**D : QDIR . OBJ 
20 ; ASM,**- , ** D ■ QDIR . COM 

30 ; 

40 OBJECT = 1 

50 COM = 2 
60 CODE = OBJECT 


80 ; 
90 ; 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 


Set CODE equal to OBJECT 
to create an object file 
; to be used from a BASIC 
; U 5 R routine. 

; Set CODE equal to COM to 
; nake a stand alone -COM 
i file for use with Sparta 
; or anw other DOS. 


Quick Directory by Mat*Rat 

Ratware Softworks 

cc> 1989. Antic Publishing 

A quick and dirty utility 
for setting a complete 
directory listing while in 
Atari BASIC. 

The BASIC Program QDIRMAK■BAS 
will create a the file: 

D1:QD1R. 


E•"D = QDIR 


The user will be prompted for 
a directory specification, 
and a DIR will be displayed- 
If it's a SpartaDOS disk, 
the directory will be listed 
0400 ; in LONG fornat. 

0410 ; 

0420 XCORD = $55 
0430 YCORD = $54 
0440 5AUMSC = $58 

0450 STRING = $FC iStrins Ptr 
0460 FILEBUF = $0400 ;Cas buffer 


0470 CIO = $E456 

0480 ICCOM = $0342 
0490 ICBADR = $0344 
0500 ICBLEN = $0348 
0510 ICA0X1 = s 0 34 A 
0520 ICA0X2 = $ 0 34 B 
0530 ; 

0540 COPN = 3 

0550 CCLOSE = 12 
0560 CGTXR = 5 
0570 CPTXR = 9 
0580 CGBINR = 7 
0590 CPBINR = 11 
0600 CDRAU = 17 
0610 CFILL = 18 


;CALL 05 HERE 
;COMMAND TO CIO 
;BUFFER OR FNAME 
;BUFFER LENGTH 
;AUX BYTE »1 
; AUX BYTE **2 

;COMMAND OPEN 
;COMMAND CLOSE 
;GET TEXT REC 
;PUT TEXT REC 
;GET BINARY REC 
;PUT BINARY REC 
;COMMAND DRAUTO 
;COMMAND FILL 

jOPEN FOR INPOT 
jOPEN FOR OUTPUT 
;OPEN FOR DIR 


; A = U5R (ADR (QDIR$> . ADR C"D1 ***.**••>> 


0690 j QDIR$ holds the code that folio 
ws . 

0700 ; It pulls the address of the 
0710 ; directory specification string 
0720 ; off the stack. It allows the us 


0750 ; used for a directory listing. 
0760 : 

0770 .ORG $3400 

0780 .OPT OBJ 

0790 .IF C0DE=0BJECT 

0800 BEGIN 

0810 PLA 

0820 BEQ GET DRU 

0830 ; Clean up unecessary 

0840 ; parameters and continue 

0850 TAX 


0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 


PLA 

PLA 

DEX 

BNE CLEAN 
•ENDIF 

GET DRU 

; Show only a question mark 
; as a prompt for file spec 
; No room for more in the code. 
LDX **0 
LDA uCPBlNR 
ST A 1CL 0M 
ST X ICBLEN 
ST X ICBLEN + 1 
L D A » • ? 

JSR CIO 

i Accept the user's file 
; specification- 
LDA nCGTXR 
STA ICCOM 
LDA ** >FILEBUF 
STA ICBADR: 1 
STX ICBADR 
LDA **40 
STA ICBLEN 
JSR CIO 

; FILEBUF now contains 
i the text file spec 
; to use as a template 
; for the directory 
; listing. 

GOTDRU 

LDX **$50 
LDA UCCLOSE 
STA ICCOM,X 
JSR CIO 
LDA **CQPN 
STA ICCOM,X 
EDA » >FILEBUF 
STA ICBADR+l.X 
LDA **0 

STA ICBADR,X 
LDA nOPDIR 
STA 1CAUX1.X 
LDA **128 
STA ICAUX2.X 
JSR CIO 
BM1 CLOSEDRU 
GETFIL 

LDX **$50 
LDA **0 

STA ICBADR.X 
STA 1CBLEN+1,X 
EDA ** >FILEBUF 
STA ICBADR+1,X 
LDA **40 
STA ICBLEN,X 
LDA ttCGTXR 
STA ICCOM,X 
JSR CIO 
BMI CLOSEDRU 
LDX **0 

LDA » > FILEBUF 
STA ICBADR 4 -1 
STX ICBADR 
LDA **40 
STA ICBLEN 
LDA ttCPTXR 
STA ICCOM 
JSR CIO 
BPL GETFIL 
CLOSEDRU 

LDX **$50 
LDA **CCL05E 
STA ICCOM,X 
JMP CIO 

•IF C0DE=C0M 
* = $02E0 

•UQRD GETDRU 
ENDIF 
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Tech Tips 


XY COORDINATES TO SCREEN MEMORY 

Tech Tips regular Greg Vozzo of Brightwaters, 
New York shows how to convert X-Y coordinates 
(such as those used in PLOT, DRAWTO, etc.) into 
screen memory locations used by PEEK and POKE. 
Type RUN to start the program, which will fill screen 
memory (and thus the screen) with Os. 

To RUN the second part of the program, type 
GOTO 50. This POKEs a 0 into screen memory, con¬ 
verts the location into X-Y coordinates, and then 
prints an A there. The third section of the program 
is run by typing GOTO 200. This will print HELLO 
at the designated X-Y coordinates and then over¬ 
write the word by POKEing Os into the appropriate 
screen memory locations. 




10 GRAPHICS 0 : REM UNMkJBliMOI-MRs] 

20 A=PEEK<88* + PEEK C89>*256 : REM mBSBHUljU 

30 FOR 1=0 TO 959 :PUKE A+1.16:NEXT I:R 
En N[«:Mi][4HBII!MnriB[dMmnB(-iM^^[^IBfiiNI>[i!l:in 
40 END 

50 GRAPHICS 0 : A=PEEK<88> + P E E K *89**256 : 
PUKE A+1S6.16:REM I JiUliBfrlBl'.JBNUMUBMWIUNNIM 
[i^li[i]|:^nBHMWBUmr:l(HNWBia[H[iriBU[;i[^BU[i|IUBIH(iBMU 
60 Z=40:REM » OF COLUMNS IN MODE 0. 

70 Y = INT d56'Z* : REM HMMBCJMHBBMWBUIJIMBW 
80 X=156-*Y*Z*:REM 

90 FOR P = 1 TO 750: NEXT P s REM [SiGHM* 

100 POSITION X , Y : ? "A": REM CJHitiBrfllLBUMUB 

IlfMUXM 

110 END 

200 GRAPHICS 0:A=PEEK*88*+PEEK*89»*256 
:X=10=Y=10:Z=40:POSITION X,Y:? "HELLO- 

210 FOR P = 1 TO 7 5 0:NE X T P 

220 FOR 1 = 0 TO 4 : REM UI^IIMMillBdliaBlIiHHHHl 

230 POKE A+*«Y*Z*+X*+I,16:NEXT I : REM B 

[§DJUJ[4l:lBlllUB[;ir4ll[8[i]fl[SHiir:iBH[4[:Hi|P1B 

240 END 

250 rem our:iu[4i;itii;iNkii^iaBM[niir;if4B[4mmr:iuM[ii[i'!(-i 
B(Hr:1!i'IBI:||4B[iiriMim^[0fl 


FIVE-COLOR CURSOR TEXT 

ANTIC modes 4 and 5 (same as Graphics 12 and 13) 
are special in that they allow four colors in a single char¬ 
acter, and five on the whole screen. However, there is no 
cursor. 

This program, also by Greg Vozzo of Brightwaters, New 
York, sets up a GRAPHICS 0 screen and changes it to a 
mixed screen of ANTIC modes 2, 4 and 5- The character 
set is altered and the screen colors are changed. Finally 
text is printed—and a cursor is present. 

How did this happen? The redefined character set al¬ 
tered the SPACE character, which occupies the whole 
screen, into a solid block. This way, the cursor will show 
up in the color assigned to location 712 (background) 
when it overlays the solid block. In addition, the now- 
solid playfield is its own color, separate from the back¬ 
ground, so a screen border is possible. 




5 POKE 106,PEEKC740> 4:REM RESET RAMT 0 
P AND RE5ERUE ROOM FOR THE CHR SET. 

10 GRAPHICS 0DL=PEEKt560>+PEEK*561>*2 
56:REM FIND TOP OF DISPLAY LIST- 
20 POKE DL + 3, 68:REM SET LM5 FOR TOP MO 
DE LINE TO ANTIC MODE 4 

30 FOR I=DL+6 TO DL+26:P0KE I,4=NEXT I 
* REM SET MORE MODE LINES. 

40 POKE DL + 19,5 * POKE DL+20,5:POKE DL + 2 
7.65 : POKE DL+28,PEEK*560>:POKE DL+29.P 
EEK(561):REM SET TWO ANTIC 5 LINES 
50 REM AND DEFINE THE BOTTOM OF THE DI 
SPLAY LIST. NOU SET UP CHARACTER SET: 
100 FOR 1=0 TO 1023:POKE PEEKC106>*256 
+1»PEEK*57344+1*:NEXT I:REM MOUE ROM C 
HARACTER SET INTO RAM- 

110 POKE 756.PEEKC106*:FOR 1=0 TO 7:PO 
KE PEEK*106**256+1.255=NEXT I:REM ENAB 
LE CHR. SET * FILL ALL "SPACE" CHR5. 
120 POKE 712.100:POKE 710.148:POKE 711 
.68:POKE 709,42:POKE 708.0:REM COLORS 
130 ? "HELLO BtIMIfflfflB" POSITION 2.14:? 
"HELLO":POKE DL+22,2:? :? :? "BUSdBARR 
I'lUBK ^Y 5BT!')BM['1UI^BC U R SI'IRBA H['IUNDB" 

140 RESTORE :F0R 1=1 TO 4:READ A:FOR J 
=PEEK*106**2S6+A*8 TO PEEK*106**256+A* 
8+7:READ B:P0KE J.B-NEXT J:NEXT I 
150 DATA 40.255.187.187.171.187.187.18 
7,255,37,255,171,191.171,191.191.171,2 

55.44.255.191.191.191.191.191.171.255 
160 DATA 47,255,171.187,187.187.187.17 

1.255 


LINE WIPER 


This short program by Mark Perez, of Fremont, Cali¬ 
fornia produces an impressive “line wipe” effect for eras¬ 
ing text from the screen. Its secret lies in the clever use 
of the ATASCII character set in WIPE1S and WIPE2S. Use 


this routine to dress up your own programs 

Don't type the 
Typ ° » Codes! 


UR 

AD 


30 UIPE1S = "LIIIII" : UIPE2«="K1U " 

40 POKE 82,0:GRAPHICS 0:POKE 710,0:POK 
E 752,1 

50 FOR MIPE0N = 1 TO LEN *MSG$> 

60 FOR FX = 1 TO 3 * PRINT MlPE1 $<FX,FX>; : 
PRINT "IB"; : FOR D = 1 TO 5:NEXT D-NEXT FX 


70 PRINT MSG$(UIPEON,UIPEON*;:FOR D=1 
TO 5:NE X T D 
80 NEXT UIPEON 

90 ? "ffi"; 

100 FOR UIPE0FF = 1 TO LEN *M5G$> 

110 FOR FX = 1 TO 3:PRINT UIPE2$ cFX,FX*; 
: PRINT "68"; : FOR D = 1 TO 5:NEXT D : NEXT F 
X 

120 PRINT " "i «FOR D = 1 TO 5:NEXT D 
130 NEXT MIPEOFF 
140 7 "IS"; : GOTO 50 


Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari’s 
powers, simple hardware modifications, or useful 
macros for popular software. 
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Antic Classifieds 


★★★★★★ 

The Munich Atari XL/XE Public Domain 
Association offers a great number of PD-disks. 
We sell (82/2S), change and buy PD-Software. 
Free list. Write to: Florian Bechert, August- 
Foppl-Str.17, 8,000 Munchen 50, West- 
Germany(FRG) (10/89) 

COMPUTER MUSICIANS SOURCE BOOK 
Your number one source for all your computer 
needs. For more details write or call: Computer 
Musicians Cooperative, 3010 N. Sterling Ave- 
nue, Dept. AT, Peoria, IL, 61604 (11/89) 

Your choice of 8-bit P.D. software on each side 
of every disk. Great selection, competive 
prices. Send SASE for catalog. Dino’s RYO, 664 
W. Arrow Hwy, Suite 197, San Dimas, Calif. 
91773 (10/89) 

For the best in Atari Public Domain Software 
write for your free catalog. 8-bit or ST. Good 
Prices and Fast Service. Vulcan Software P.O. 
Box 692, Manassas, VA. 22111-0692 (5/90) 

SI now features the LARGEST and BEST Soft¬ 
ware Collection of any ATARI 8-Bit P-D special¬ 
ist in North America! Our SUPERIOR Theme 
Disks (300+ sides/ over 5,000 different pro¬ 
grams!) average just 82—3 per packed D-S disk. 
Shipping FREE. Try MLX GAMES’ GREATEST 
HITS (our Most Popular title) for only $300— 
receive Si’s newest Catalog FREE! Catalog 
alone/82.00. SASE for Disk Listings only. SOFT¬ 
WARE INFINITY, 642 East Waring Avenue, State 
College, PA 16801. (11/89) 

PD SOFTWARE: LOW AS $ 1.80/DISK (most 
disks D-S) CHRISTIAN GAMES- AGAPE 
GAMES’ disk- $12.95 (8 BITS W/48) SASE for 
INFO. Dan Sharpe GPO BOX 911 CHICOPEE 
MA 01020 (11/89) 


★ ★★★★★ 

10 disks with the best P. D. games ever made for 
the Atari 8-bit for only $10.00 plus 2.00 S/H. 
Order NOW! E.Lopez, P.O. Box 6772, Pico 
Rivera, CA 90661-6772_ 

PR1NTSHOP GRAPHICS. Holidays $15.00. LDS 
Prophets and Temples $15.00. LDS Church 
Auxiliaries $15.00. 120 pictures each. Free 
Catalog. PCS Software Box 18574, Kearns, UT 
84118. (10/89) 

BEST PD DISKS/PRICES—fastest service— 
FREE bonuses—8-bit/ST. Automatic DISK-A- 
MONTH program. Full disks less than $1.50 
each. Super sample disk with catalog $3 50. 
Specify computer. PATNOR, POB 370782, El 
Paso, TX 79937_ 

★★★★★★ 

CREATE/PRINT MUSIC MANUSCRIPT. 48K 
800/XL/XE. Words and music. WYSIWYG. 
Epson, Star, Panasonic printers, or easily create 
your own driver. Very high quality display and 
output. A SERIOUS TOOL for musicians; a 
NEAT TOYfor music-lovers. Written by an M.A. 
in music. 819 95. 30-day MONEY-BACK GUAR¬ 
ANTEE. John Kelleher, 4400 New Jersey Street, 
San Diego, CA 92116 (10/89) 

250+ DS/SD DISKS OF PD SOFTWARE FOR 
YOUR ATARI 8-BIT. PLEASE SEND $3 TO: 
AAPDS 6-18TH EDGEMORE, HUTCHINSON, 
KS 67502. 

★ ★★★★★ 

Stop overpaying for P.D. software!!! ALL 8-bit 
disks only $2.00 each, ST only $3-00. Quan¬ 
tity discounts, great selection. Specify com¬ 
puter. Send large SASE: MWPDS, 890 N. 
Huntington St., Medina, OH 44256 (10/89) 


★★★★★★ 

Get our free catalog of 800/XL/XE Public 
Domain and Freeware! Choose from over 300 
theme disks, all tested and guaranteed. The 
most descriptive catalog available anywhere. 
Dependable worldwide service! BELLCOM, 
Box 1043-A, Peterborough, Ontario, Canada 
K9J 7A5.(9/89) 

Public Domain Software—ST $4/Disk, 
800/XL/XE 83/Disk. Laigest ST Selection. The 
Atari ST Book $16.95. Fast Service, Visa/Master¬ 
card, FREE catalog—Specify Computer. BRE 
Software, 352 W. Bedford, Suite 104-A, Fresno, 
CA 93711. (800) 347-6760 (1/90) 

Ybur choice of 8-bit P. D. software on each side 
of every disk. Great selection, competitive 
prices. Send SASE for catalog. Dino’s RYO, 664 
W. Arrow Hwy, Suite 197, San Dimas, Calif. 
91773. (10/89) 

New NERDS graphics collections for Print 
Shop(R): MAPS 3 & 4: China, Russia, Africa, 
East—230 pics: $15 both. PD HOLIDAY 
disks—200 pics: $8.00 both. Rock Insinias: 120 
pics: $9. BIOLOGY 1 & 2: Animal, Plant, Micro, 
more—230 pics: $15 both. Add $1 P & H. 
LSASE for printouts. NERDS, Loeffler, 18 
Wendy Dr., Farmingville, NY 11738 (11/89) 

Used Original 8-bit commercial programs. Lots 
of goodies from SSI, EA, AH, Broderbund etc. 
. . . $4—$10 each. Send SASE for list. Walt 
Huber, 644 E. Clinton, Atwater, CA 95301. 

EARN MONEY—EXCELLENT EXTRA 
INCOME! Free details send a Large Self- 
addressed Stamped Envelope to: Computerized 
Data Ltd., Rt 3, Box 472, Dept. A, Excelsior 
Springs, MO. 64024 (10/89) 
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Advertising 
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December 1989 

Insertion Orders: September 1 
Artwork: September 8 

On Sale: Last week of October 

January 1990 

Insertion Orders: October 2 
Artwork: October 8 

On Sale: Last week of November 

February 1990 

Insertion Orders: November 1 
Artwork: November 8 

On Sale: Last week of December 







































Subscribe 
to ANTIC 
Plus Disk 
Tbday! 

CALL 

TOLL FREE 

1 - 800 - 234-7001 


(6am-6pm Pacific Time, 
Monday—Friday) 

V ISA/MasterCard Orders Only 









Antic Classifieds 

544 Second Street, San Francisco. CA 940P 
Telephone (415) 95’(IKH6 


Name Company 

.address Phone 

Ciiv/Sutc/Zip 

MasierCardA isa Number Expiration Dale 

Signature lssue(s) Ad to Appear 

Enclosed is my payment for S_ 


RATE: SI.00 PER WORD—twenty (20) word minimum. 

BOLDFACE: Add $7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add $6.50 for one (1) line of six (6) stars ★★★★★★ at top of ad. 

TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail¬ 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e g., December 1988 closes September 1, 
1988—December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 


HANDWRITTEN COPY W ILL NOT BE ACCEPTED 


AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 


SUPER BONUS PROGRAM 
on Antic Disk 

You get even more value when you 
get the Antic disk...Bonus Programs 
too large to fit in the magazine. 

Plus you get all 172K of this month’s 
Antic programs on disk. Great 8-bit 
software without typing! 

Order your disk now! 

Phone toll-free: 


1 - 800 - 234-7001 


(Visa/Mastercard Orders) 
Ask for ADS1089 



Only $5.95 


(Plus $2 shipping A handling i 


More affordable 
than ever... 

Subscribe to Antic with Disk for 

ONLY $28.00 / 

Get 6 issues of Antic with 
disk for the super low price 
of $ 28 . 00 . It’s so much 
easier on your checkbook! 

Antic’s disk is your best 
source of continued 8-bit 
software support. 

Subscribe now! 

Call Toll-Free: 1 - 800 - 234-7001 

Visa/Mastercard orders only 


































BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 


SAVE 25% TO 35% 


How To Order: 


Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C- disk only 

Example: 1A- is for “April 1983, magazine 
& disk” 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 


Prices: 

1 To 5 If you order more 
Issues than 5 Issues 

Magazine & Disk $7.00 each $6.50 each 

Magazine only $3.00 each $2.75 each 

Disk only $5.00 each $4.75 each 

Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 

FOR ORDERS ONLY CALL TOLL- FREE 

(800) 234-7001 (7-5pm PST.) 

MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 


Back Issue Order Form 


Order # Selection 
A, B. or C 


Order # Selection 
A, B, or C 


□ Check Enclosed □ VISA □ MasterCard 


Name _ 

Address 


Total Issues 
Ordered: 


City_ State_ Zip 

Credt Card #_ 

Exp. Date_ 


Total Issues Ordered: 

1 to 5 

6 & over: 


No. Issues of Sel. A:_ 

x $7 ea. 

x $6.50 ea. 

= $_ 

No. Issues of Sel. B:_ 

x $3 ea. 

x $2.75 ea. 

= $_ 

No. Issues of Sel. C:_ 

x $5 ea. 

x $4.75 ea. 

= $_ 


Total $_ 

Shipping & handling $_ 

Amount enclosed $_ 


Canada, Mexico and all other foreign add $1. 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2% sales tax. 














































Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 


ORDER * ISSUE 

1 April 1983: Games — 3-D Maze, Voyeur (NoDisk) 

2 May 1983: Telecomputing—Microids, 

Tele CheSS (No Disk) 

3 June 1983: Databases—Stargazing, 

Dancin' Man (No Disk) 

4 July 1983: Adventure Games—Dragonsmoke, 

Shoot-em-up Math 

5 August 1983: Graphics—3-D Fuji, Keystroke 

Artist 

6 September 1983: Education— P/M Tutor 

7 October 1983: Sports Games—AutoCassette 

8 November 1983: Sound & Music—Air Raid, 

Casting Characters 

9 December 1983: Buyer’s Guide— 

AUTORUN.SYS, Automate Player/Missiles 

10 January 1984: Printers—Pocket Calendars, 

Screen Dump 

11 February 1984: Personal Finance—TYPO, 

Gauntlet 

12 March 1984: International Issue—DiskRead, 

Poker Solitaire 

13 April 1984: Games—Risky Rescue, 

Math Wizard 

14 May/June 1984: Exploring XL Computers— 

Escape from Epsilon, Scroll to the Top 

15 July 1984: Communications—AMODEM, 

BASIC Animation Secrets 

16 August 1984: Disk Drives—Horseplay, Recall 

17 September 1984: Computer Graphics- 

Graphics Converter, Olympic Dash (No Magazine) 

18 October 1984: Computer Learning—Bouncing 

Ball, Antic 4/5 Editor/Animator 

19 November 1984: Computer Adventures— 

Adventure Island, Advent X-5 

20 December 1984: Buyer’s Guide—Infobits, 

Biffdrop 

21 January 1985: Super Utilities—TYPO II. 

DISKIO 

22 February 1985: Finances—Home Loan 

Analyzer, Drum/Bass Synth 

23 March 1985: Printers Kwik Dump, Font 

Maker 

24 April 1985: Computer Frontiers —Dot Matrix 

Digitizer, Speech Editor 

25 May 1985: New Super Atarls — Son of Infobits. 

Arena Racer 

26 June 1985: Computer Arts—View 3-D, 

The Musician 

27 July 1985: Computer Challenges —Miniature 

Golf, Guess That Song 

28 August 1985: Telecommunications—Atari 

’Toons, Pro* Term 

29 September 1985: Power Programming— 

One-Pass Disk Copy 130, Crickets 


ORDER * ISSUE 

30 October 1985: Mind Tools—Graph 3D, GEM 

Color Cascade 

31 November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 
Management 

32 December 1985: Shoppers Guide—DISKIO 

Plus, Box-In 

33 January 1986: Atari Products are Back- 

Appointment Calendar, Dungeon Master’s 
Apprentice 

34 February 1986: Printer Power—T-Shirt 

Construction Set, Forth Escapes 

35 March 1986: Practical Applications—Lunar 

Lander Constructor, Lie Detector 

36 April 1986: Computer Mathematics—Fractal 

Zoom, 3-D Fractals 

37 May 1986: 4th Anniversary—Digital 

Gardener, Molecular Weight Calculator 

38 June 1986: Summer Computing—Weather 

Wizard, Bomb Squad 

39 July 1986: Computer Arts—Amazing Card 

Shuffler, Graf con ST 

40 August 1986: Online Communications— 

Ultrafont, Floppy Filer 

41 September 1986: Weather—WEFAX Decoder 

(8-bit/ST), BASIC Tracer 

42 October 1986: Hard Disks—Video Stretch, 

TYPO ST 

43 November 1986: Personal Finance — Budget 

dataBASE, V-Graph 

44 December 1986: Shoppers Guide—Stepper 

Motors, Nuclear Waste Dump 

45 January 1987: Talking Atari—Talking 

Typewriter, Rebound 

46 February1987: Word Processing—SF 

Fogger, Electric Charlie! 

47 March 1987: Dvorak Keyboard, 

Multi-AUTORUN 

48 April 1987: —Designer Labels, Taxman 

49 May 1987: 5th Anniversary—A-Rogue, Poker 

Slot Machine 

50 June 1987: Animation—Verbot Commander, 

Citadel 

51 July 1987: Print Anything—Ghost Writer, 

Your Net Worth 

52 August 1987: Atari Muscle—Sideways 

Spreadsheet, Diamond Dave 

53 September 1987: Work/Play—Mighty Mailer. 

Maximillian B. 

54 October 1987: Football Predictor—Antic 

Prompter (8-bit/ST), Spelling CheckerlNo Mag.) 

55 November 1987: Practical Applications— 

Critical-Path Projects, WYSIWYG Cassettes 

56 December 1987: Print Holiday—PS. Envelope 

Maker, Antic Publisher (No Magazine) 



American Techna-Vision 

For Orders Only -1-800-551-9995 
CA. Orders / Info. - 415-352-3787 


1050 MECHANISM 

I Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust¬ 
ments required. 

$4750 


VISICALC 

SPREADSHEET 

I Unleash the computing power t 
I of your 8 bit Atari withVisicalc. * 
I Compute everything from home 
I finances to high powered finan- 
I cal projections. Hundreds ol uses. 
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XL40 PIN LSI CHIPSET 

I A Complete set of 40 Pin Large Scale I 
I Integrated Circuits for your 800XL, 

I 600XL or 1200XL computer. 

I Great for quick repairs! Set 
I contains one each of the j/\ n r| 
1 following: CPU, GTIA, $ | LJ I 
I ANTIC. PIA AND POKEY. 1 ■ 


800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components.$28.50 

800/400 MODULES 
NEW PARTS COMPLETE WITH IC'S 

• CX853 16K RAM Module $9.50 

• 800/400 CPU with GTIA . $8.75 

• 800 10K "B” OS MODULE $8.75 

• 800 POWER BOARD . . . .$14.50 

• 400 POWER BOARD .... $9.50 

INTEGRATED CIRCUITS 


• C014795 .. $4.50 

• C014805 .. $4.50 

• C012296 .. $4.50 

• C010745 .. $4.50 

• C014377 .. $4.50 

• CO60472 .. $4.50 

• 6532 _ $4.50 

• C012399B $4.50 

• C012499B $4.50 

• C014599B $4.50 

• C014806 .. $4.50 
•C010750.. $4.50 

• C010444 .. $8.50 

• CO60302 $9.50 

• C021697 $15.00 

• C061991 $15.00 
•C061598. $20.00 

• C061618 $24.00 

• C024947 $15.00 


1050 IC'S 

• U7 - 6532 $4.50 I 

• U8 - 6810 $4.50 

• U9 - 6507 $4.50 

• U10 ROM $19.50 

• U13 2793 $19.50 

• U5 LM2917 $8.50 

5713 $5.25 
All other 1050 IC's 
$3.75 each 
Specify by Socket# 

850 INTERFACE 
12 Piece Chip set. I 
Includes all plug in 
IC's except ROM. 
Replacement fixes 
vast majority of 850 
failures.$19.50 J 


r POWER PACKS 


XLVXE SUPPLY _ nnB 

I PowerPC for 800XL.600XL $ Q C 00 I 
\ 130XE, 65XE & XE Game. C.yJ 


[THE BOOKKEEPER 
AND CX85 KEYPAD 

I You get both Atari's 8 bit 
I professional bookkeeping $1Q95| 
I system and the handy CX85 I \J 

I numeric keypad for one low 4 DISK 
I prioe. Packages Factory sealed. SET 


KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 . $40.00 

800X1_$29.50 

400 . $12.50 


REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 

806, 800XL, 130XE, 400, 1025 

and 1050 .$19.50 each 

520ST Service Manual. $37.50 

MISCELLANEOUS 

13 Pin Serial I/O Cable.$4.50 

600XL64K JJpgrade Kit.. $29.95 
, SUPRA 300 Baud Modem $29.95 

ACE Joystick.$7.95 

| 800XL RF Modulator.... $9.50 
1050 Track Zero Sensor... $8.50 
2793 1050 Controller 1C ... $19.50 

U.S. Doubler.$29.95 

400 Board Set (W/OKybd) $22.95 
Paddle Controllers (Pair)... $9.95 , 

Rev. "C” Basic ROM. $15.00 

Fastchip for 800/400.$15.50 

Rambo XL w/o RAM IC’s $39.95 
850 or PR Modem Cable .. $14.50 
850 or PR Printer Cable... $14.50 

Printer Interface.$43.95 

I/013 Pin PC connector... $4.50 
I/013 Pin Cable end plug .. $4.50 
ST 6' Disk Drive Cable ... $14.00 
ST Monitor Cable connector $550 

1027 INK ROLLER.$6.50 

i 1030 Modem Power Pack.. $6.95 , 


CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 


CARTRIDGES 

For XL's/XE’s 800/400 

POLE POSITION Cartridge.$15.00 

STAR WARS - Return ol the Jed.. . $15.00 

PAC-MAN Cartridge. $4.00 

DELUXE INVADERS Cartridge_ $4.00 

JOURNEY TO THE PLANETS Cart $4.00 

GORF Cart 800/400 Only. $4.00 

DONKEY KONG Cartridge. $5.00 

STAR RAIDERS Cartridge. $5 00 

MILLIPEDE Cartridge. $10.00 

PLATTER MANIA Cart by Epyx $9.95 

WIZARD OF WOR Carfridge. $9.95 

CAVERNS OF MARS Cartridge $14.50 

1 PENGO Cartridge.$15.00 

EASTERN FRONT Cartridge $15.00 

I ATARIWRITER Cartridge. $29 95 

TURMOIL Cartridge. $5.00 

CROSSFIRE Cartridge. $7.50 

SPRINGER Cartridge. $7.50 

ADVENTURE CREATOR Cartridge $12.50 
ZONE RANGER Cartridge . . $12.50 

SILICON WARRIOR Cartridge ... $12.50 
MATH ENCOUNTER Cartridge . $12.50 

PILOT LANGUAGE PACKAGE . $17.50 

SPARTADOS-X Cartridge . . $59.95 

ACTION O.S.S Cartridge. $59 95 

ACTION TOOL KIT DISK. $25.00 

MAC-65 O.S.S. Cartridge $59 95 

MAC-65 TOOL KIT DISK. $25.00 

R-TIME 8 Cartridge. $56.95 

SPINNAKER EDUCATIONAL CARTRIDGES 

KINDERCOMP Cartridge. $8.75 

FRACTION FEVER Cartridge... $8.75 

FACEMAKER Cartridge. $8.75 

ALPHABET ZOO Cartridge. $8.75 

UP FOR GRABS Carfridge. $8.75 

I ALF IN THE COLOR CAVES Cart. $8 75 
DELTA ORAWING Cartridge.... $8.75 

STORY MACHINE 800/400 only $8.75 
LINKING LOGIC (Fisher-Price) Cart $8.75 

HOT DISK TITLES 

BEST SELLERS/LOW PRICES 

• F-15 STRIKE EAGLE. $14.95 

• TOP GUNNER COLLECTION . .. $14 95 

• SILENT SERVICE. $14.95 

• KENNEDY APPROACH. $14.95 

•VIDEO TITLE SHOP (64K). $12.50 

• CHESSMASTER 2000. $12.50 

• ALTERNATE REALITY THE CITY $12.50 

• ALTERNATE REAUTY DUNGEON $12.50 

• TOMAHAWK (64K). $12.50 

•221-B BAKER STREET (64K). $12.50 

•MUSIC STUDIO.$12.50 

•TEMPLEOFAPSHAI. $12.50 

•BRIDGE 4.0. $12.50 

•HOTELALIEN. $12.50 

• NATO COMMANDER. $14.95 

^OMPUTS^OOKS 

Atari Playground Workbook $5.95 
HackerBook Tricks & Tips $5.00 

Inside Atari Basic. $5.00 

Atari Basic Ref. manual. $5.00 
How to Atari 6502 Program $5.00 
Write Your Own Games. $5.00 
Programmers Ref. Guide $14.95 
Assembly Language Guide $21.95 

XE Users Handbook_ $21.95 

XL Users Handbook_ $21.95 

Atari Basic Faster & Better $22.95 
Your Atari Computer_$17.95 

SERIAL I/O CABLE 

High Quality, 13Pin. $4.50 

Special... 3 Cables for $10.00 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
' serious programmers... $59.95 

I ATARI 850 INTERFACE 

Bare PC Board with parts list and 
| crystal.$4.50 

PR: CONNECTION 

Serial/Parallel Interfaoe for connecting 
modems and printers.$65.00 

BASIC CARTRIDGE 

| Exact replacement for 
800/400/1200XL.$15.00 

SUPRA MODEM 

Supra 300 Baud Direct Connect 
Modem requires no separate 
interface. Includes cable and Disk 
Software. Supports X-Modem, 
L Download & Upload.$29.9$ 


[Disks-XL’s^XE's^OO 

F-15 STRIKE EAGLE Disk. $14.95 

TOP GUNNER COLLECTION ... $14 95 

SILENTSERVICE Disk. $14.95 

KENNEDY APPROACH Disk . . . $14.95 

NATO COMMANDER Disk. $14.95 

T. MATH. $17.95 

T. VOCABULARY. $17 95 

VISICALC Spreadsheet . $19.95 

BOOKKEEPER A CX85 KEYPAD . $19 95 

SPIDERMAN Disk. $4 95 

DAVID’S MIDNIGHT MAGIC Disk $4.95 

ALIEN AMBUSH Disk. $4.95 

REARGUARD Disk. $4.95 

TECHNA-COLOR DREAM Disk . . . $4 95 

FREAKY FACTORY Disk. $4 95 

LASER HAWK Disk. $4.95 

ROCKET REPAIRMAN Disk.$4.95 

HUMAN TORCH A THE THING . $5.00 

MUSICAL PILOT Ed. Disk. $5.00 

•N*PUTATIOND.sk. $5,00 

MASTER CHESS Disk. $5.00 

SPEED KING Disk. $5.00 

LAST V-8 Disk. $5 00 

PATHFINDER Disk. $5.00 

MATCH RACER Disk. $5.00 

WOMBATS 1 Adventure Disk_ $5 00 

FAMILY FINANCE Disk by Atari . $6.50 

FORT APOCALYPSE Disk. $7.50 

$7.50 

ELECTRA-GUDE Disk. $7.50 

SPORTS SPECTACULAR Disk . . $7.50 

THE GAMBLER Disk. $7.50 

STRATOS Disk. $7.50 

MIND MAZES (Educational). $7.50 

TIMEWISE. $7.50 

VIDEO VEGAS Poker A Slots. $9 95 

ACTION BIKER. $9.95 

KICK START. $9.95 

MONEY TOOLS (Financial Utility). . $9.95 

DIG DUG Disk. $9 95 

REPTON Disk. $9.95 

PUZZLE PANIC Disk by Epyx .... $9 95 

CEST’E LAVE Disk. $9.95 

WOMPER STOMPER Disk. $9 95 

OLIN EMERALD (Jr.. Adv ). $9 95 

MOVIE MAKER (Graphics). $9.95 

FINANCIAL COOKBOOK. $9 95 

CYCLE KNIGHT. $9.95 

SONGWRITER. $9.95 

COUNTING A ADDING with Tink .. $9.95 

CHESSMASTER 2000. $12.50 

BRIDGE 4.0.$12.50 

PEGAMMON.$12 50 

MUSIC STUDIO.$12.50 

HOTEL ALIEN. $12.50 

GHOST CHASER. $12 50 

L. A. SWAT. $12.50 

GRANDMA’S HOUSE (Educational) $12.50 

DROPZONE Disk.$12 50 

CASTLE WOLFENSTEIN Disk $12 50 
BEYOND CASTLE WOLFENSTEIN $12 50 

TEMPLE OF APSHAI. $12.50 

ALI-ANTS Disk. $12 50 

MOUSE QUEST Disk (64K).$12 50 

ELECTRONIC DRUMMER Disk $12 50 

STOCK MARKET Game. $12.50 

PIRATES OF THE BARBARY COAST $12.50 

NICKERBOCKERDisk. $12,50 

MIDWAY BATTLES War Game $12 50 
BOULDER DASH Construction Set $14 95 
MOONMIST (Infocom Adventure) $14 95 
MIND SHADOW Adventure 64K $14 95 

HACKER Adventure. $14 95 

SEA STALKER Adventure $14 95 

STATION FALL Adventure $14 95 

ZORK 1 Adventure. $14 95 

INFIDEL Adventure. $14 95 

HOLLYWOOD HIJINKS Adventure $14 95 
CONFLICT IN VIETNAM $14 95 

DECISION IN THE DESERT $14 95 

CRUSADE IN EUROPE.$14 95 

SPITFIRE ACE. $14 95 

SSI 50 MISSION CRUSH $14 95 

SSI BATTALION COMMANDER $14 95 
SSI PANZER GRENADIER $14 95 

SI FIELD OF FIRE $14 95 

_SI GEMSTONE WARRIOR $14 95 

MASTERTYPE (Typing Tutor) $15 00 
BANK STREET WRITER $17 50 

CUT & PASTE W P Disk $17 50 

S PART ADOS CONST SET $39 50 

SPARTADOS Tool-Kit. $32 95 

UK DATA PERFECT Database $CALL 

DATASOFT DISKS 

VIDEO TITLE SHOP. $12 50 

ALTERNATE REALITY (The City) $12,50 
ALTERNATE REAUTY The Dungeon $12,50 

ZORRODisk . $9.95 

SARACEN Disk. $9 95 

CROSSCHECK Disk. $9.95 

GUNSLINGER Disk (64K). $9.95 

TOMAHAWK Helicopter Game 64K $12.50 
THEATER EUROPE War Game $12 50 

BRUCE LEE Disk. $12 50 

MERCENARY Disk. $12 50 

THE GOONIES Disk $12 50 

CONAN Disk. $12 50 

NEVER ENDING STORY (64K) $12 50 

221-B BAKER STREET (64K) $12 50 

Napolean in Russia (Borodino 1812) $12 50 

BISMARCK. $12 50 

MOON SHUTTLE 


AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Sales Office: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.S. VISA, Master/Card okay. Credit cards restricted to orders over $18.50. No 
personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders under 
$150.00. Add $2.75 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All products 
new and guaranteed. All sales final.. 

Prices subject to change vm fiout notice Send SASE for tree price list Atari rs a reg tademerk of Atari Corp 















































































































